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prograai they hoped to create a oodel that .would have wide 
applicability not only for other states and censuses but for 
historical deiMtgraphic data in general. The isanuar cooprises six 
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PREFACE 



This manual was de1^elop^ by Uie Wisconsin Center foe Historical Demography as 
part of a unique cooperative*projeCt between the State Historical Society of Wisconsin 
and the Wisconsin Division of Corrections* Green Bay Correctional Institution. As part 
of a new training program involving computers at Gieen Bay, Miil Slinger, the Director 
of Edticatioi^ approached the Society about developing a program* appropriate to the 
training needs of the inmates but would also produce something of permanent value to 
the state. Based on the Society's extensive experience with.the 1905 Wisconsin Census 
Indexing Project and the 'many developments in the area uf 'automation initiated by the 
Archives, the Society created a plan to create a data base of the 1880 Census for 
Wisconsin. In developing oui .urogram our hope is to create a model^that will have wide 
apphcability not only for other states and census^ but for historical demographic date' 
m general. This dolUment is a first step and we" encourage anyone interested in this, 
field to contact us. 

Max J. Evans James P. Danky ^ 

; Co-Directors 

' . Wisconsin Center for Historical Demography 

State Hisibrical Society of Wisconsin 
- 816 State Street 
Maffison. WI 53706-1482 
if OS) 262-9600 * {60§) 262-9584 
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' 1. INTRODUCTION 



In this project' you will use a computer to help create a data base (listing and ifidex) 
of the 1880 Census of Wisconsin. You will be i-ssponsible for entering into the computer 
a wide variety of information, which will eventutdly be put together with the work of 
others to form the complete data base. 



Why create a census data base? t , 

— « 

' The United States Federal Censuses are taken every ten years, ad m^dated by the 
Constitution. Originally their only purpose was to "count noses'* for .the purpose of 
calculating.the number of .people each state sent to the House' of Bepresentatives, since 
this is based on population. GradujalV* however, the census came to be as a way 
to collect all sorts of useful information about people. The fact that the census is takin 
at the same time everywhere makes it possible to produce a '*snap£ot*' of the entire 
country each dec^e. 

Therefore,. people who are reseaxiching their family trees; historians interested in 
the way people hved, the kinds of occupations they had, and the way they moveS about; 
and demographers who compile statistical tabl'ss about people y/hd lived long ago, all 
can find much of interest in a census. Ever since the census^ firom 1790 to 1880 were 
released to the public a generation ago, they tiave been among the most-used of 
historical records. However, the census takers, listed pepplc in the order they visited 
them, and, especially in big cities, this mak^ finding a particular individual or fa^oily 
ajnatter of a long and boring search. ^jS^s which list the nam^ alphabeti^lly can 
therefore save much time and firustration. Tlie information in a computerized datA base 
can be sorted in virtusUly any way imaginable, and questions lite TWheie was my 
great-grandfather Uving i » 1880?*', "How many Norwegians lived in Milwaukee?", and 
"Who was the oldest livu«g resident of Wisconsin in 1880?" can be answered almost 
instantaneously. (The census information is kept private for 72 years; the data 
collected in 1980 won't be released to the ^ubUc until 2052. j 

The first census was taken in 1790; it only listed the name of the head of the 
household, and the number of people Uving with him or hef , divided into a few sex/age 
categories. By 1880, however, m«re than 25 types of information were listed about each 
person. The computer program you will be using was written so that you can, with a 
little practice, copy all this information quickly and accurately. 

Aren't the pages of the 1880 census a little fragile hy now? 

Frankly, yes. That's why the enfire census has been photofi^phed onto microfi|pi 
(fomiliar tc those who like spy mivels). You will be given the use of a m>«rrofilm leader, 
which enlarge the image on the film so you can read it, and alroll of film wi^ part of 
.the 1880 census on it. - . - 



^ • ^ 2. THE 1880 C^SUS 

Before learning about the computer .equipment, it would \3» a good idea to look at a 
page of the iS80 census, and get a feel tor ttte kinds of information you will be 
recording. . . . ° 

*In I880i ^each county Vas divided in 'to several "enumeration districts.** Jn the 
UF9)er left-hand corner of. each .census page, you ^iill see a< Hne for **Enumeration 
E^r.t. No.** Ibllowed by a written number. This number, and the name of the town and. 
the county (after the words '*Inhabitant8 xp^ at the top of Uie page) are what people 
need to know to fi^d the general arej^ of the. census that, a particular person wa^ listed 
in. 

< 

Two lines above the enumeration Hilctrict is the ?Page No.^ Ignore this . The iMige 
numbers you will be entering into the ramputer 'are the ones stamped in ink (not 
written) in the upper rig^t^hand comer of the page. Make a jspeciid note of this now; 
unfortunately, going back and correcting yo^r comp»i|ter 'entries,* on(% you. discover some 
are wroi^, is a time-consuming and teJibus process. 

Actually, tiiis number stamped in ink is a sheet number: both the front and back of 
a sheet have the same numb^. 1%e front and back aire distinguished by a prints* 
letter. A, B, C, or D, in the upper right- or left-hand corner of each page'. (A*6 and, C's 
are on the ri^t; B's and D's are on the lelt:.PleiEi^ |ee for yourself). Sometimes the 
letters are faint, or covered, with tape, but they ai^ iuwayB there. If you can't find it, 
3^u can hguie out what it must be by lookmg at the pages before and aifter. 

Usually, the first sheet in a volume (stamp«l **1'0 is a sheet with an A &nd a B, the 
second sheet ("2**) has a C and a D, etc. So Uie normal sequence of pages is: 1 A, IB, 
2C, 2D, 3A, 3B, 4C, 4D, 5A, and so on. In other words, odd sheet numbers have ^'s 
and B's, and even sheet numbors have C's and D's; It would helpfiil if j-ou get used to 
this i^stem right away, so that when you sit down to, enter the data, it will already be 
second nature and you can do it xight, from t^ beginning.: 

r 

In columns, oz| the far left and far rig^t sides of the page, are the line numbers, 1 
throu^ 50. Each page starta ovcor witl^ lue 1. 

Now you can see that rra^urdws, am^ with the pred&e drocription of a location 
in the census (providoi by you), can go directly to the exa^ line they want to see, even 
if they didn't know what county to look in befir^re. You can abo see the accuracy is very 
important here; if your "roiUi map** directs .thd searcher to the wrong place, it "won't 
matter if all the personaT informatuin you painstakingly recorded is correct or not. 
Fortunately, as youH see, the computer tains care of most of the work. 



S. A FEW DEFINITIONS 



As with any occupation, computer data entry has its own language. Here are some 
words that are-us^i frequently in the instructions that follow: , , 

# • 

Disk -^metimes called "floppy disk" or "diskette", it looks like a thin, hroWn 45 
rpra recptxi tucked inside a protective jacket. (Be sure to follow the instructions on 
the jacket for handling the disk*) You will use two disks at a time: one contains 
. ihe computer program you will be using, and the other will store the data you 
enter. i - 

*• Disk'drfve or just drive - a ^binet-like device into which the divks are inserted, 
in* order to read the information or instructions that are encoded on them. When 
disks are being used inside the disk drive they make a soa whirring sound as they 
spin. .This is normal. * 

Files- and filenames - a dkk'cai^ be divided into files if there are several kinds of 
infonnation on the same disk. Each file is given its own filename. Many fa]«»s can 
go on the same disk, but in this project, there will be only one file on each disk; 
therefore the disk will have the same name as the .file .on it. 

Record - all the information- abouh one census person. Each, disk can hold up to 
■^86 fecords. \ • 

Section - not really a "computer word," but used here to describe the three main 
grotiinogB, of information within a" record. Generally speaking, the first section 
contau^ general location; the second section specific location; and the third Section 
personal information. 

Field - the space tot aside for each item of information you will record for each 
person. There are 32 fields per record in this proaect: 4 in the first section, 7 in the 
second section, and 21 in the third section. 
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Monitor - the screen on which your work is displayed. ^- * ^ -O *" 
Cursor - a rectangle. that shows you where^u ai* on the screen. ' 



^ 4. USING 'mE COMPUTER 



First set up the microfilm rsadir.'and turn the reel the first pa^ ymill be 
indexing. , . . 

Youi^ disd drive has tyto compartments, which should be labeled '*Drive 1" and 
rihive 2". To begin, insert the disk labeled "1880 Census Programs" in Drive 1, and. 
dose ^e door to Uie drive: (There are instructions on the disk jacket that will e;Epiain 
' which ^ay itie disk goes in; it has to be a certain way or the program won't work). 
Insert your other disk in Drive 2, and close 'its door. Now turn the machpie on (the 
switch is located on the bAckleft of the keyboard uAit). You Will also need to turn the, 
monitor 'On. Its switch is located above and to the' right of the screen. After the disk 
stops spinning, the following will appear on your monitor: t - " 



1^ 



V 



1880 CENSUS PROGRAM 



COPYRIGHT 1984 BY THE STATE HISTORICAL SOCIETY OF WISCONSIN 

ALL RIGHTS RESERVED 

ENTER -FILENAME: 



r - - ^ " 



m 

* At thib point type in the filename and thm press RETURN. If ypu are using a disk 
tha1» already has sdme information stored on it> and you have forgotten yoilir filename, 

> type a question mark J[?) tp get the fitename you used before. Make sure that you use . 
ti^ same nlename each time you use t£e same di^. 

* * 

After you type RETURN the computer will give you a chance to insert the disk into 
Drive '2 if you haven't already done so, ahd ask you to make sure that the CAPS LOCK 
key is in the dpwn p(»iiion. 



1880 CENSUS PROGRAM • \ 

• ■ 

COPYRIGHT 198^ BY THE STATE HISTORICAL SOCIETY OF mSCONSIN 

ALL RIGHTS RESERVED ^ 

^ PLEASE MAKE SURE THAT <CAPS ^.OCK> IS DOWN 

. , PLEASE INSERT FILENAME DISK IN DRIVE 2 



• OK TO CONTINUE (Y/NJ? 



When this is done type Y to tell the computer you are reAdy to continue. 



If the file is a new one ihe 
program is set up to accept bnly 
whole name). Typing a question 



computer will ask for a county code. (Xhe computer 
a four-)etter code for the names of the counties, not the 
mark (?>!wiU4lisplay the following fl8)A>f county codes: 



ADAM 


Atlams 


JACK 


Jackson 


ASHL 


Ashland 


JEFF 


Jefferson 


BARR 


Barron 


JUNS: 


Juneau 


BAYF 


Bayfield 


KENO 


Kenosha 


BROW 


Brown 


KEWA 


Kewaunee 


BUFF 


Buffalo 


LACR 


La Crosse 


BURN 


BBmett 


LAFA 


Lafayette 


. CALU 


Calumet. 


LANG 


Langlade 


CHIP. 


^Chippewa 


LINC 


Lincoln 


CLAR 


qiark 


MANI 


Mafiitowoc 


COLU 


Columbia 


MARA 


Marathon 


CRAW 


Crawford 


MARI 


Maiinette 


DANE 


Dane ' 


MAR0 


Marquette 


-_^DG 




MILW 


Milwaukee 


''^OOR 


.Door 


MONR 


Blonroe 


DOUG 


Dou^as 


OCON 


Oconto 


DUNN 


Duim' 


OUTA 


Outagamie 


EAUC 


Eau Claire 


OZAU 


Ozaukee 


FOND 


Fond du Lac 


PEPI 


Pepin 


GRAN 


Grant 


PIER . 


I'ierce 


GREE 


Green 
Green Lake 


POLK 


Pblk 


GRLA 


PORT 


Portage 


IOWA 


Iowa 


PRIC 


Price 
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RACI 


Racine 


VERN 


Vernon 


RICH 


Richland 


WALW 


Walworth 


ROCK 


Rock 


WASH 


Washington 


STCR 


Saint Cittix 


WAUK 


Waukesha 


SAUK 


Sauk 


WAUP- 


Waupaca 


SHAW 


Shawano 


• , WAUS 


Waushara 


SHEB 


Sheboygan f 


WINN 


Winnebago 


TAYL 


Taylor 


WOOD 


Wood 


TREM 


Trempealeau 




• 



You may enter the county code in small Jetters and the computer will capitalize it 
(though you won't see this on the screen). After you enter the county code and type 
RETURN the following screen will appear: 

' • ■* . 



File FILENAME 
Subdivision: 



Wisconsin 1880 Census 
CODE County 

Class: Enumerat on District: 

Hou% #: 



ileconi 1 
Ward: 



Page: Line: Street Name: 

Duelling #: Fajuly #: Last Name: 

First Name(s): ' liace: Sex: Age: 

Relationship: ■ Marital Status: Married Within Year: 

Occupation: | Months Unemployed: 

Ilhiess: \ BUnd: DeaS'Dumb: Idiotic: 

Insane: Disabled: Attended Sch'X)l: ^Cannot Read: C&nnot Write: 

Birthplace: ' Father's Birthplace: Mother's Birthplace; v 

Auxiliary: 



Left arrow ' Move left * RETURN - Next field 
Rifi^t arrow - Move right TAB - Prev. field 
CONIROL-A • Insert space Down arrow - Next sect. 
DELETE • Del. character Up arrow - Prev. sec t. 
C(H<ITROL-P - Delete to end of field 



CONTROL-F - Next record 
CONTROL-B - Prev. record 
CONTROL-G - Goto record x 
? - Help 

CONTROL-C - Quit 



This is the screen on which all of your data entry will take place. K-you a^ 
( starting on a new disk, it should say "Record*!"; if you are working with an old disk, 
\ the last record firom your previous session will appear. The records you enter are 
numbered autonyiticaHy as you go. 

When tlffire is no more room on the disk, the computer will tell you "DISK FULL / 
PUT A NEW DISK IN DRIVE 2, TYPE ANY IG^Y WHEN READY." Be sure to get a 
new .filename when you get a new disk. Once you have typed a key, it returns to the 
screen on pafe 4. Enter your /lew filename and proceed as before. The last record you 
entered on tl^ old disk will become the fii^t record on the new disk. 

Ordinarily, you. will move firom one field to the next by t^ing RETURN. At the 
bottom of the stteemis a list of various way6 you can move th^ cursor from one place to 
anotiier quiddy, if you need to go back to make corrections. To use ihe functions with 
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t, he CO NTROL key, hold CONTROL down while you type Ihe letter (just like you hold 
SHIFT down on » typewriter to make a capital letter). Experiment with the various 
mnetions until you get used to them (review the definitions of "record," •'section," and 
"field" in section 3 if needed). » 

TAB moves back one field at a time. Both the up arrow (t) and the down arrow (*) 
move VP or down, respectively, one section at a tiiye. They both work in a circular 
fashion (i.e. typing the down arrow while in the last section moves the cursor to the 
first section.) • I 

Simple typing errors ran be corrected just by typing over the mistake. If, for 
examplie, you typed Joens for Jones, just back up using the left arrow («•) and type 
over the en. Typing the ngl^t arrow (•») will move the cursor forward if you backed up 
too for. If you typed Joes, you could type nes over the es. You could also position the 
cursor over" the c, press CONTm>L-A (in order to insert a space), and type n. If you 
typed Jonnes, position the cursor over one of the n's and press DELETE. Notice how 
the es automatically mov^ over after the n is deleted. 

Move the cursor to the Last Name field and try the above "Jones" examples. - 

Using the record functions (CONTROL-F - next record, CONTROL-B - previous 
record, CONTROL-G • go to a record you specify) takes rome time because the disk has 
to spin while it finds and*displayB the record you want. CONTROL-G allows you to go 
to any record on the disk, instead ofVbioving backwards dr forwards one record at a 
time. The computer will ask you for the number of tiie record you want, and you may 
have to guess a few times before you narrow it down. 

Use-QPNTROL-L to delete the Ust of special functions at the bottom of tbe screen. 
Another CONTROL-L will make them reappear. 

Each field has its own HELP message, which will explain briefly the sorts of things'^ 
that are explained fiilly in this manual. Most quration^ you may have while typing will 
be answered in these messages. To get a HELP message, move the cursor to the field 
you have a question about, and type a question mark. 

To end your session, type CONTROL-C. It is very important that you use onlj the 
CONTROL-C to end your sessicm (don't just turn the machine off) because typing the 
CONTROL-C saves necessary informal^ on the disk. You will then see the same 
'screen that appears on page 4. To exit type CONTROL-C again and turn off both 
switehes. 

» 

Any of the function keys can by typed in any field, and. at any point within a field. 
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5. CENSUS DATA EN^Y 



The computer program is set up co that a lot of the information that is th6 same 
from line to line in the census is automatically repeated on the screen. Once you type 
in the coimty name, community name, type of community, enumeration district, page 
number, street, house number, dwelling number, family n\imber,'and surname, these 
will remain constant until you change them . In addition the line number will auto- 
matically increase by one each time j^du start a new record. 

In the Subdivision field enter the name of the community only. Do not include the type 
of commimity like City, Town, Township, or Village. 

In the Class field enter the type of the community, using the following codes: 
C-City ^ 
T - Town/Towiiship 
V- Village 

In the Enumeration District field enter the Enumeration Dist. No. located at the top 
of the cfous pa^. * 

In the Waid field enter the name of the ward. Usually only the larger cities are divided 
into wards. This field will be blank when indexing rural areas. Wards will usually be 
■ numbered, but sometime words will be used. Use a maxim u m of two characters t« 
name a ward. If it says "^ast" enter "K", if "Southwrof enter "SW. See appendix B 
for a list of cities divided into wards. , 

• ♦ 
In the Page field enter the page number. Do not enter the mafiuscript Page 
No. written in by the census taker. Enter the sheet number stamped in, ink followed by 
the capital letter in the comer of the page..^ You may enter a small letter and^the 
computer will capitalize it. 

In the Line field enter the line number. As explaiiied above, this will automatically 
increase by one, but you must remember to a4ju8t this if the census taker lefb a blank 
line. . 

In the Street, Name field enter the name, of the .street including the direction. For 
example: Enter "East Main St." not just "Main St." The street name is written, if at 
all, vertically in the leftmost column of the census page.. Leave blank if' there is no 
street name given. 

In the House # field enter the house number. (Not all named streets had numbered 
houses.) Use "H" to mean "1/2"; for example, if it says "7464 1/2" enter "7454H". 

In the Dwelling # field enter the dwelling number firom column 1. 

In the Family # field eiiter the family number firom colunm 2. * 

In the Lf ite field enter the surname firom column 3. Often -a. new last name will 
be Mtor the previous one. A fast way to delete the <«maining characters, once 

you've t^ . new name, is to type CONTROL-D.. ' 
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Enter last names beginning with^ic or Mac all in capitals with no spaces, and ent^ 
names beginning with O' without the apostrophe. Examples: 

enter McDonald- or Mc DoxLold as MCDONALD; 
enter O'Briaii or OBrian or Obrian as OBRIAN. 

In the First Name(s) field enter the first name and middle ini^al(s) or»name(s) from 
column 3. If tiie name is abbreviated (Chas.) you can spell it out (Charles) if you're 
sure what the abbreviation means. If in doubt, just type what it says, "Jno." is an 
old-fashioned abbreviation for "John". Do not enter periods after initials. 

In the llace field enter color/race from column 4 according to the following codes: 
W- White 

B - Black . * . ' 

M - Mulatto (part black and part white) 
C - Chinese 

I - I;ndian/Native American . * > 

You can leave this field "blank if the person is white, and thje computer will automati- 
cally enter a "W" (although you won't se^ this on the screen). 

In the Sex field enter sex of person from column 5 according to the following c(Kles: 
M - Male 
F - Female 

In the Age enter age from column 6. Enter ages less than a year as the letter "M" 
followed by i^i number of months. Ignore the mont^ if over one year. Examples: If it 
says •*7/12'' you enter "M?**; if it says \1 9/12" you enter "l". Enter ag^ less than one 
month as "MO". You may type in a small "m" and the computer will capitalize it. 

In the Relationship field enter the relationship to the head from column 8. Leave blank 
if it says "Head" or is blank. Use the following codes: 



ADA 


Adopted Daughter 


GGS 


Great-Grandson 


ASN 


Adopted Son 


HUS 


Husband 


ANT 


Aunt 


INM 


Inmate 


BOA 


Bofurder 


MOT 


Mother 


BRO 


Brother 


MOL 


Mother-in-Law 


BRL 


Brother-in-Law 


NEP 


Nephew 


COU 


Cousin 


NBE 


Niece 


DAU 


Daughtter 


, OTH 


Other/Unknown 


DAL 


Daughter-in-Law 


ROO 


'Roomer 


FAT 


Fathe| 


SER 


Servant 


FAL 


Fathef-in-Lfiw 


SIS 


ffister 


GAT 


Grahd-Aunt 


•^SIL 


Sister-in-Law 


GDA 


Granddaughter 


SON 


Son 


GFA 


Grandfatlurr 


SOL 


Son-in-Law 


GMA 


Grandmother 


SDA 


Stepdaughter 


GNP 


Grand-Neplu»w 


SFA 


Stepfather 


GNI 


Grand-Niece 


SMA 


Stepmother 


GSN 


Grandson 


' SSN 


Stepson 


GUC 


Graxid-Uncle 


UNC 


Uncle 


GOD 


Great-Granddaughter 


. WIF 


Wife 


GGF 


Great^Grandfather 


^ WOR 


Worker 


GGM 


' Great-Grandmother 
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In the Marital Status field enter the marital statizs from columns 9-11 using the 

following codes: 

S- Single 

M - Muried 

W - Widowed 

D - Divorced 

Blank ^ Nore given ' ♦ 

.If the marital status of a person under 16 years old is not given, assume they are 
sinc^e. A mark in the widowed/divorced column means widowed ; a capital D means 
divorced . 

In the Married Within Year field indicate if married' within the census year from 
column 12 using the following codes: 
y - Yes 

N or Blank - No 

In the 'OccupaUori field anter the occupation from coliunn 13; Qmit the following 
(Kxupations: ,At school, At home, Keeping house, Hooswikeeper, and Boarder 
(unless list^ as *'servafi^'' in the relationship osliunn). Leave blank if blank in census. 

In the Months Uneipployed field enter niunber of months u^employid from cokunn 14. 
Leave blank if blank iit census. 

In the Illness field enter illn^s from column 15. Leave blank if blank in census. 

In the Blind field indicate if bUnd frx)m coluimf 16 using the following codes: 

Y - Yes * 

N or Blank - No . «r • 

In the DeafTThunb field indicate if deaf/dumb frx)m column 17 using the following codes: 
. Y - Yes 

N or Blank - No . 

In the Idiotic field indicate if idiotic from column 18 using the following codes: 

Y-Yes • : 

N or Blank - No 

• , , • « 

In the Insane field indicate if insane from column 19 using the following codes: 
Y-Yes 

N or Blank - No ' 

In the Disabled field indicafe if disabled from column 20 using the following axles: 
Y-Yes 

Nor Blank -No ' - 

In the Attended School field indicate if attended school during census year from column 
21 using the fiillowing codes: 

Y - Yes 

N or Blank - No ' ^ 

In the Cannot Read fiield indicate if unable to read from colimm 22 using the following 
codes: 

Y-Yes • 
N or Blank - No 
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In the Cannot Write field indicate i*" inable to write from column 23 using the following 

codes: 

Y-Yes 

N or Blank - No 

Birthplaces are coded with two fetters for places within the United States and with 
three letters for foreign places. Sometimes the birthplaces are abbreviated, and so it 
will be up to you to figure them out as best you can. In addition Germany was, in the 
19th century, divided into many s^iall, semi-independent stdtes. Each of these has its 
own code and it would be a good idea to read over the list below before you start to 
index. If the birthplace is not on the lists below, or is unreadable, enter mXK". If the 
birthplace is Wisconsin, you can leave the field blank. / 

♦ ' . ' 

In the Birthplace, Father's Birthplace, and Mother's Birthplace fields enter the places of 
birth from columns .24, 25, and 26 u^ing the following codes: 



STATE CODES: 



AL 


Alfa t\£imo 




ml 




/\nxona iemiory 




NE 


AR 


Aflcnnacifi 
■*»* Hfiiinrl W 


■ 


IN V 


PA 


v^aiuomia 




NH 


CO 


Colorado 




. NJ 


CT 


Connecticut 




NM 


DK 


Dakota Territory 




NY 


DE 


Delaware 




NC 


DC 


. District of Columbia 




OH 


FL 


Florida 




OR 


GA 


Georgia 




PA 


ID 


• Idaho Territory 




RI 


IL 


Illinois 




SC 


IN ■ 


Indiana 




TN 


lA 


Iowa 




TX 


KS 
KY 


Kan^is 
Kentucky 




UT 
. VT 


LA 


Louisiana 




VA 


•ME 


Maine 


• 


WA 


MD 


Maryland 




WV 


MA 


Massachusetts 


■ 


W^ 


- MI 


Michigan 




WY 


MN 


Minnesota 




US 


MS 


Mississippi 




MO 


Missouri 







Montana Territory 

Nebraska 

Nevada 

New. Hampshire 

New Jersey 

New Mexico Territory 

New York 

North Carolina 

Ohio 

Oregon 

Pennsylvania 

Rhode Island 

South Carolina 

Tenn^see 

Texas 

Utah Territory 

Vermont 

Virginia 

Washington Territory 
West Virginia 
Wisconsin 
Wyoming Territory 
America or United States 
(unspecified)- 



COUNTRY CODES: 



AFR Afirica' 

ANT Antigua 

ASI Asia (unspecified) 

ATL Atlantic Islands 

AUT Australia 

AUS Austria 

AZO Azores 

BAR Barbados 

BEL Belgium 



BER Bermuda 

BOH. Bphemia 

BAM British America 

CAN Canada 

CNR Canary Islands 

CEN Central America 

CUB Cuba 

DEN Denmark 

ENG England 



ERIC 
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EUR 


Europe (unspecified) 


NWF 


Newfoundland 


FIN 


Finland 


NOR 


Norway 


FRA 


France 


NSC 


Nova Scotiia 


GER 


Germany 


PAC 


Pacific Islands 


GIB 


Gibraltar ' 


POL 


Poland 


GBR 


Great Britain 


POR 


Portugal 


GR£ 


Greece . 


PEI 


Prince Edward Island 


GkN 


Grenada < 


RUS 


Russia 


HOL 


Holland 


HI 


Sandwich Islands (Hawaii) 


HUN 


Hunsary 


SCO 


Scotland 


IND 


India 


SAF 


&)uth A&ica 


IRE 


Ireland 


SAM 


South America 


lOM 


Isle of Map 


SPA 


Spain 


ITA 


Italy 


SWE 


SwjBden 


JAP 


Japan 


SWl 


Switzerland 


LEB 


Lebfiuion 


SYR 


Syria 


LUX 


Luxembourg 


TRI 


Trinidad 


MAL 


Malta 


TUR 


Turkey 


MEX 


Mexico 


WAL 


Wales 


HOL 


Netherlands 


WIN 


West Indies 


NBR 


New Brunswick 


SEA 


At Sea 



GERMAN STATE CODES: 



ALS Alsace • 

ALL Alsace-Lorraine 

ANH Anhalt 

BAD Baden 

BAV Bavaria/Bayem/Biron 

QRA Brandenburg 

BRU Brunswick/Braunschweig 

HAM Hamburg • 

HAN Hanover/Hannover 

HES Hesse/Hessen 

HCA Hesse-^^assel/Hesse-Kassel 

HDA H^serDarmstadt 

HHO Hesse-Homburg 

^HPH Hesse-Philippsthal 

* .HPB H^se-nulippsthal-Barchfeld 

HOH Hohenzollem 

HHE Hohenzollem-Hechingen 

HSI Hbhenzollem-Sigmaringen ■ 

LIP Lippe ^ 

LBI Lippe-Biesterfeld 

LWI Lippe-Weissenfeld 

LUE Luebeck/Lubeck 



MEC Mecklenb'irg 

MSC Mecklenburg-^hwerin 

MST Mecklenburg-Strelitz 

MOR Moravia 

NAS Nateau 

OLD Oldenburg \ 

POM Pomenmia/Pommem 

PRU PruMia/Freussen 

SXA Saxe-Altenburg 

SXC Saxe-Coburg 

SXM Sa3m-Meinix^(en 

SXW Saxe-Weima> 

SAX Saxony/Sachsen 

SLI Schaumburg-Lippe 

SHO Schleswig-Holstein 

SCR Schwarzburg-Rudolstadt 

SOS Schwarzburg-Sondershausen 

SIL Silesia 

WLD Waldeck 

WEI Weimar 

. WUR Wurttemburg/Wuerttemburg 



Use the Auxiliary field to mark a record you're unsure about with an asterisk (*); these 
records w?Jl be specially reviewed later: 
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6. HINTS FOR SOLVING PROBLEMS 
AND ADDITIONAL INFORMATION 



Problems: 

There are several types of probljepis that may crop up: Accidentally turning the 
machine off while you are still runiiing the program, a !>ower failure, or the program 
aborting fbr some reason* (see next paragraph). As mentioned before, typing 
CONTROL-C causes the computer to first put necessary information on the disk abou,t 
the file bafore quitting. If the program is stopped in any unusual way, it will not have 
a chance to put that information on the disk. So if you tried'to run it again with the 
same disk , it may appear that all your hard work hfts just vanished fiito oblivion. 
However, there is good news: in most cases, all will not be iMt. While you m at the 
screen pictured 6n page 4, type CONTROL-C. Then, at the Applesoft prompt, which is 
the right square bracket Q) type RUN FIX, Dl followed by a RETURN. When the 
computer asks CENTER DATA FILENAME:** enter your filename followed by a RE- 
TURN. The computer will then look at your file and fix it if at all possible. 
• 

Should the program come across an error situation that it can't recover firom, it will 
say •'ERROR e IN UNE n / UNABLE TO CONTINUE, PROGRAM ABORTED", where 
**e" is the error number smd "n" is the line it occurred in. Make a note of both the error 
and line numbere and what you had been doing before the error happened. Give this 
information to Phil Slinger to send to Madison so that we can fix the pitigram so that it 
. won't happen again. You may then run the census program again (see next para- 
graph). 

Additional information: 

The program can be rerun without turning the computer off and then back on. If 
you have typed CONTROL-C twice to get out of the prograuoi and then wish to run it 
ag^,'at the Applesoa prompt (D just type RUN followed by a RETURN. If you have 
been -using some other program like *T)ISPLAY" or "FIX", you will have to type RUN 
CEN&US, Dl followed by a RETURN. 

There is a speedy way to look a condensed version of the information on the 
disk. To do this t ype in at 4ha Appl^oft prompt RUN DISPLAY, Dl. Whan the 
computer asks "TENrER DATA FILENAME:** enter the filename. It will then ask you 
"ENTER RECORD TO OTART WITH:" and ."ENTER NUMBER OF RECORDS TO 
DISPLAY:". Once you have entered the record number to start with and the number of 
records to display, the computer will display them, breaking each record up into three 
lines. Each line will be prefixed with its record number, a prriod, and a one, two, or 
three. The number following the period tells which third of the record is on that line. 
Use CONTROL-S to temporarily stop the display. Another CONTROL-S will start it 
up again. 
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^JPPEl^IX A 
Population totals for Wisconsin counti^, 1880. 



Adams 6,741 Manitowoc 37,505 

Ashland 1,559 Marathon 17,121 

Baxron . 7,024 Marinette 8,929 

Bayfield 564 , Marquette 8,908 

Broyn 34,078 MUwaukee 138,537 

Buffalo 15,628 Monroe 21,607. 

Burnett 3,140 Oconto 9,740 

Calumet 16,632 Outagamie 28,646 

Chippewa 15,491 Ozaukee 15,461 

Clark 10,715^ . Ptepin 6,225 

Columbia 28,085 Pierce 17,663 

Crawford 15,644 • Pblk 9,775 

Dane 53^33 Pbrtage 17,720 

Dodge 45,931 Price .777 

2°°^ 11.645 ^ Racine 30,761 

Douglas 655 Richland 18,143 

Dunn 16.817 Rock 38.607 

Eau Claire 19.993 Saint Croix 18,926 

Fond du Lac 46.859 Sauk 28 688 

Grant 37,852 Shawano lo!o79 

G**®" 21,729 Sheboygan 34,203 

Green Lake 14,483 Taylor . 2^96 

Iowa 23.628 Trempealeau 17.169 

Jackson 13,285 Vernon 23,105 

Jefiferson 32,156 Walworth 26.194 

Juneau 15,582 Washington 23,440 

*«nosha 13,550 Waukesha 28 893 

Kewaunee 15,807 Waupaca 2o!935 

La Crosse 27.073 Waushara . 12,665 

Lafayette 21,279 Wiimebago 42.652 

Langlade 685 Wood 8.961 

Lincohi 2,011. 



^ APPENDIX B 

^, . « 

Population tot^ fbivtownS, villages, afO^^u^ of cities, 1880. 

ADAMS 



Adams town 
Big Plate town 
. DeD Fkwie town 
Eaaton town 
Jackson town 
Leola town 
Lincoln Jtowp 
Monroe town 
New Cluster town 
New Haven town 
Preston town 
Quincy town 
Rkfafield town 
Rome town 
Springwlle town 
Strong's Prairie town 



ASHLAND 



Ashland town 
Butternut town 



447 

158 

500 

450 

482 

238 

434 

448 

304 ^ 

836 

136 

397 

308 

219 

437 

947 



951 
608 



BARRON 



Barron town 
Cedar Lake to>wn 
CUnUm town ' 
Cumberland town 
Dallas town 
I^akeland town 
Maple Grove town 
Prairie Farm town 
Rice Lake town 
^tek (Chetak) town 
stamlold town 
Sumi£n' town 
Turtle Lake town 



BAYFIELD 



Bayfield town 



BROWN 



AOouez town 
Aflhw aubeno n town 
BeHevue town 
DqpNUretqwn 
Di^wre vfflage , 
Eatm town 
Fnrt Howard city 
Gknnoore town 
GreenBayd^ , 
^anll . 



353 
351 
203 
642 
694 
77 
505 
828 
454 
1,286 
926 
479 
226 



564 



259 
404 
777 
817 
1,954 
686 
3,083 
1,070 
7,464 
1,207 
2,960 
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BROWN (Continued) 



■Green Bay city (continued) 

Wards 
Green Bay town 
Holland town 
Howard town 
Humboldt town ' 
Lawrence town 
Morrison town 
New Denmark town 
fHttsfield town ^ ^ 

Preble town 
Rockland town 
Scott town ' 
Suamico town 
West Depere village 
Wrigfatstown town 



3,307 

1,085"^ 

1,443 

1,171 

1,060 

837 
1,543 
1,386 . 

712 
1,153 

803 
1.352 

948 
1,870 - 
2,196 



BUft'ALO 



Alma town 


731 


Alma village 


1,244 


Belvidere town 


• 723 


Buffalo dty 


248 


BtifTab town 


655 


Canton town 


738 


Cnms town 


- 700 


Dover town 


722 


Foimtain City village 


963 


Gilmantim town, incli^lin^^yilmanton 


villas 540 


Gihnanton village 


58 


Gleimye town 


852 


Lincoln town 


673 


Mas^yille town 


414 


Milton town 


441 


Modena town ' 


811 


Montana town 


847 


Nafries town 


1,625 


Nelsmi town 


1,651 


Waumandee town 


950 


_ BURNETT 


I 


Bashaw town 


160 


Grantdburg town 


1,613 


Marahland town 


302 


Trade Lake town 


680 


Wood Lake town 


485 



CALUMET 



:RIC 



BriUion town 
Brothertowp own 
Charlestown i7wn 
Chilton dty 
Chilton town 
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1,492 
1,762 
1,354 
1,132 
1,361 



CALUMET (Continued) 



Harrison town 
NewHolstein town- 
Rantotil town 
Sto^ridge town 
WoodviBe town 



CHIPPEWA 



Anson town 
Auburn town . 
Big Bend town. 
Bloomer town 
Chippewa Falls dty 
Wardl 

2 

3 

4 

Eagle Point town 
^Sdaon town 
Plainbeau town 
La Fayette town 
Sigel town 
W^eatoh town 



CLARK 



Beaver town 
Colby town 
Eattm town 
FVemont town 
Grant town 
Hewitt town 
HizOii (own 
Lewis to wn 
Lojfal town 
Lyim town 
MajrviUe town 
Sfentor town 

Rne Valtey town « 

Sherman town «• 

Sherwood Forrat town 

/ntorp town 

Unity town , 

Warner town 

Wadiburni^wn 

Weston town 

Yvtii town 

COLUMBIA 

Ariingtoai town 
C al o d op ia town 
Columbus city 
Cohnnbus town 

Courtiand town, incL part of Cambria vUl 

Cambria viUaise (part of) 
Defconra town 
Fort.Winifflbago town 
Foulttain FrSme town 
Han^pdeii town 
jLeodstown 



2,036 
2,059 
1,761 
2,172 
1,513 



723 
1,^32 

231 
1,582 
3,982 
1,202 
1,248 

777 

766 
2,564 

882 

251 
1.903 

856 
1,285 



263 
813 
463 
203 
881 
156 
500 
-266 
550 
247 

1.249 
7644 

1,732 
300 
115 
257 
381 
435 
153 
530 
477 



1,022 
1,297 
1,876 

805 
1,321 

409 
1,278 

689 
1,300 

944' 
1^167 



COLUMBIA (Continued) 

Lewiston town ^ 
Lodi town, including Lodi village 

Lodi village 
Lowville town 
MareeU(mtown 

Newport town, incl Kilboum city village, 

Kilboum City village 
Otsego town r 
Pacific town 
Portage city 
Ward 1 
. 2 
3 
4 
5 

jlandfriph town incl. part of Cambria village 

(kunbria village (i^ut of) 
Rando^h village (part^of) 
Scott town 
Springvale town 
West I^nnt town 
Wyoc^ia town 



CRAWFORD 



Bridgeport town 
Clayton town 
Eastman town 
Freeman town 
Haney town 
Marietta town 
Prairte du Chien city 
Ward 1 
2 



IVairie du Chien town ' 
Scott town 
Sei^a town 
Utica town 
Wauaeka town 

dXne 

Albwn town 
Berry town 
Black Earth town 
Bkmning Grove town 
Bhm Mounds town . 
Bristol town 
Burira town 
Christiana town 
Cottage Grove town 
Crtas Rains town 
Dane town 
Deerfield town 
Punkirit town 

Dunn town, inchiding McFarland village 

BlcFarlaiui village 
Fitchburg town 



993 

1,462 
723 
818 
836 

1,520 
. 945 

1,442 
ii9 

4,346 
644* 
800 
897 
891 

1,114 

1,057 
96 
64 
830 
680 
852 

1,228 



448- 
1,976 
1,459 
1,544 
636 
li037 
2,77.7 
689 
953 
723 
412. 
724 
1,046 
1,446 
1,496 
1,055 



1,351 
1,066 

902 

927 
1,009 
1,139 
1,002 
1,859 
1,159 
1,331 
1,161 

972 
1,283 
1,14 b 
° 166 

978 
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DANE (Contiiiitod) 

Madison city •> . 
W&rdl ^ 

3 

\ 4 

5' • 
Madison town 
Mazomanie town 

M^iina town • 
Mitfal^on town 
Montrose town 

Or^on town, including Oregon villago* 
Oit^n viUflige • 

Perry town ' ' 

Fleasai.t Springs tjpwn 

Primrose town < 

Ifaobtny town ^ 

Rutland town - 

Springdale town 

Springfield town 
, Stou^^ village 

Sun Fralr» town 
* Sun Fk'airie village 

Vennont town y 

Verona town 

Vienna town 

W^^rt town 

Windsor town 

Yoi^ town 



10,324 
2,248. 
2,003 
2.516 
. 2,010 
1,547 
. 736 
• 1,646 
1,406 
. 1,513 
1,108 
1,514 
^ 627 
924 
1,278 
888 
1,157 
1,133 
1,006 
1,240 
1,353 
923 
597 
961 
1,017 
1,051 
- 1,987 
1,210 
983 



DODGE 

Aahippun town 'I 
Beaver Dam city M 
Wardl * 

2 

3 

4 

Beaver Dam town 

Burnett town incL Burrott Junction village 
< Burnett Junction village 
Calamus town 
Chester town 
CIS'iBsn town 

town 
Enune tt town 

Fox Late town, including Fox Lake village 

Fox Lake village 
Herman town 

HtdilMUid town incL part of Horicon village 

Horfeon village (part of) 
HitstUbrd town 
Ldwnontown * 
Le Roy town 
Lfanfara town 
Lowell town 

Oak Grove town incL the foltowing villages 

Hnrieon village (part (rf) 
^ Juneau village' 
Portland town 
Rankilph village dnrt of) 



1,369 
3,416 

684 

850 
1,009 

973 
1,405 
1,117 

113 
1,166 

750 
1,235 
1,341 
1,263 
1,791 

966 
1,641 
3,249 
1,194 
1,666 
1,680 
1,588 
1,845 
2,680 
2,227 

56 
. 454 
1,271 

357 



DODGE (Continued) 

Rubicon town 
Shields to9(a 
Theresa town • 
Trenton town 
Watertown city (part of) 
Ward 6 • 

6 - ' 

Watipun city (sout^ ward) L 
Westford town 

Williamstown town incl. Mayville village 
MayviUe village 

t 

DOOR 

Bailey's Harbor town . 
Brussels town 
Clay Baiiks town 
Egg Harbor town / 
Foi^tville town 
Gardner town 
Giln^ter town 
Jacksonport town 
Liberty Grove town 
Nasewaupee town 
Sevastop^ town 

Stwrgeon Bay town, incl. Sturgeon Bay vill. 

Sturgeon Bay village. 
Unicm town 
Washington town ^ 



Superior town 
\ 

Colfax town 
Dimn town 
EauGaUe town 
Elk Mound town 
Grant town 
Hay River |own 
Lucas town 
' Menomonie town 
' New Havcan town 
Otter Creek town 
Peru town 
Red Cedar town 
^Rock Creek town 
Sand Creek town 
Slwridan town 
ffiicrauus town 
Spring Rnook town 
Stanton town 
Tainter town 
Tiffany town 
Weston town 



DOUGLAS 



DUNN 



1 



\,660 
1,025 
2,018 
1,624 
2,092 
721 
1,371 
1,314 
1,093 
2,243 
1,051 



640 
999 
663 
730 

1,042 
603 
832 
432 

1,092 
762 
866 

2,049 

1,199 
610 
42 



665 



460 
1,115 
1,154 
688 
467 
340 
497 
4,177 
269 
219 
296 
78^ 

6rs 

667 
687 
648 
1,304 
967 
764 
413 
606 



EAU CLAIRE 



bridge Creek town, incL Augusta village 1,894 



ERIC 
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EAU CLAIRE (Contijued) 



Augusta villf^ 
Brunswick toWn 
Drannnifin town 
Eau Claire ci^ 
Wardl 
. 2 
S 
4 

■ 6 • 
6 
7 
8 

Fauthild town, including Fairchitd village 

Fairchild -village 
lincola town 
Ludington town 
Otter Creek town 
Pleasant Valley town 
S^mouriown ' 
Union town 
"Wadiington town 



FOND DU LAC 



Alto town . 
Ashford town 
Auburn town: 
Bryon town j 
Calumet town ' 
Eden town 
ESdoradb towi^. 
Empire town 
Foxid du Lac city 
Waxdl 
2 



J 



3 
4 

6 
6 
7 
8 



Fond du Lac town 
Ywg9BX town 
Frtoxdship town 
Lamartijie town 
Marfihfield town 

Metom^ town, including Brandon village 

Brandon village ^ 
Oakfield town 
OfeeoJatown 

RipoB town, including Ripon 
ll^ion city 
Ward 1 
2 

Rowmdale town 
Spriagvale town 
Taychoodnh town ' 
Watson city (North ward) 
Wau]Nih town 



1,116 
898 
401 
10,119 
1,366 
1^027 
i;070 
988 
1,255 
1,568 
1,283 
1,572 
, 887 
^ 304 
1481 
212 
1,060 
941 
515 
631 
954* 



1,335 
2,038 
1,651 
1,284 
1,447 
1,404 
1,617 
1,065 
;3,094 . 
1,765 
2,446 
1,939 
2,455 
884 
1,221 
1,068 
1,316 
1,354 
1,388 
1,013 
1,378 
2,044- 
1,808 
601 
1,304 
1,363 
4,1274 
3,117 
1,593 
1,524 
1,193 
1,158 
1,376 
1,039 
1,232. 



GRANT 

Beetown town 1,530 

Bkwmington town 1,229 

BosGobel town, including Boscobel city 1,616 

Boscobeldty ' 1,'428 
CassviUe town, inriuding Cassville village 1,301 

Cassville village \ 610 
Castle Rock town 770 

Clifton town 1,078 . 
EUenboro town 777 

Fennimore town 1/126 

Glen Haven town . 1,022 

Harrison town 1,090 
Hazel Green town, ind. Hazel Green village 1,821 ' 

Hazel Green village 598 
Hickory Grdve town 771 

Jan^town town 1,215 
Lancaster town, including Lamsaster dty 2,810 

X-ancasfer^dty 1,069 
o Liberty town * 895 

'lama town 1,164 
Little Grant town 718 
Marion town 639 
Millville town 204 
Mount Hope town 742 
Mount Ida town 871 

Musoxlatown 1,226 
Paris town 876 
Patch Grove town 826 
Hattoville town, including Plattoville dty 3,813 

PlatteviUe dty 2,687 

Pot<»i town 2,375 

Smelseir town ' 1,283 

Waterloo town 1,029 
•Watterstown town ' 595. 

Wingville town 1,178 
Woodman town 553 
Wyalusing town 719 

GREEN 

Adams town 930 

Albany town 1,133 

Brooklyn town 1,176 

Cadiz town 1,358 

Clamo town 1.422 
Decatur town, including Brodhead village 1,920 

Brodhead village 1.254 
Exeta' town , 893 

Jefferson town 1,437 

Jordan town 1,094 

Monroe town, imluding Monroe village 4,196 

Mtmroe viQage 3.293 

Mount feasant town ' 1,086 
New Glanis town 1,060 
Spring Grove' town 1,166 
SylvMter town 928 
Washingttm town 882 
York town 1.049 



4. • • 

[eric 



. 5 n 



20 



'22 



GREEN LAKE 



*7Berlin dty 
Wardl 



2 
3 

Berlin town 

Brooklyn town, including Dartford village 

Dartfbrd village 
• Green Laketown 
K^gston town 
Mackmrd txrwn, including Markesan village 

Markesan village 
' Manchester town 
Marquette town 

Princeton town, including Princeton village 

Princeton villieige ^ 
Sainte Marie town 



town 



IOWA 



Arena town, including Arena- village' 

Arena village 
Qyde town 

Dodgeville town, inCL I^>dgeville village 

Dodgevilte village 
Eden town 

IjU^hlaxui town, iiwluding Highland village 

Highland village 
Limten town * ■ 

MilBin town 

Afineral Point dty • 

Mineral Pbinttown 

Blosony town 

Pulaski town 

ffidgeway town 

WaUwick town 

WyoqMng town 



JACKSON 



AIHon town incl. Black River Falls village 

Black River Falls village 
Alma town 
Franklin town 
Garden Valley town 
KDzton town 
Irving town 
Mand^flter Uiwn 
Melrose town ^ . . 

« ISBsttm town '* 
Nort»ifield town 
Spt'liikg&sld town 
Sttlttv«ntown ^ 

JEFFERSON 

Astalan town, induding part of Johnson's 
Oeek village 
Johnson'B Creek village (part of) 
Cold Spring town 
C opcoffd town 



3.353 
1.611 

742 
1,100 
•791 
1,364 

241 
1,407 

825 
1,382 

361 
1,199 

938 
2,074 

961 

705 

445 



1,796 
266 
715 
3,540 
1,547 
909 
2,436 
668 
1,996 
1,529 
2,915 
1,490 
921 
1,402 
2,348 
896 
735 



2,889 
1,427 
1,802 
531 
1,111 
1,353 
898 
505 
1,320 
463 
1.176 
838 
400 



1.332 
69 
588 
1.457 



JEFFERSON (Continued) 

Farmington town. incl. pa^f Johnson's 
Creek village 

Johnson's Creek village (part of) ' 
Hebron town, indudii^ Hebron village 

Hebron village ^ 
Ixoniatown 

^JWTerson town, iiwluding JefTerson dty 
JeflTereon dty 
Ward 1 . 
2 
3 

Koshkmong town. incLf'ort Atkinson dty 

Fort Atkinson dty ^ 
lAke Mills town, incl. Lake Mills viUagp 
NLake Mills village 

MOfbrd toWh. induding MUford village 

Afilfbrd. villas 
Oaklaml town 

Palmyra town, indwiing Palmsrra village 

Palmyra village 
SuUivcm town 
Sumiier town 

Waterloo town, including Waterloo village 

Waterloo village 
Watertown dty (part of) 
Ward 1 
2 
3 
4 
7 

Watertown town " 

JUNEAU 

Armenia town • 
Clearfidd town 
Fountain town 
Germantown town . , 
Kildare town 
KingstMB town 
Lemonweir town 
Lindina town 
Li^n town 
Lyndkm town 
Marion town 
Mfiuston village 

Nerodah town, induding Necedah village 

Neeedah village 
New Lssdon village 
Orange town 

Plymouth town, iimluding Elroy village 

l^roy village 
Seven Mile Creek town 
Summit town 

WoTOwoc town, induding Wonewoc village 
Wonewoc village 



/ 



KENOSHA 



Brigfatm town 
Bristol town 



2,039 
139 
1.118 
142 
1.597 
3.788 
2.115 
532 
864 
719 
3,406 
1.969 
1,568 
671 
1,460 
138 
1,043 
1.361 
598 
1,357 
532 
1.768 
719 
5.791 
1.850 
1.553 
921 
541 
926 
1,951 



296 
283 
816 
681 
657 
111 
1,011 
1,062 
491 
460 
372 
1.013 
1.855 
1,475 
1,024 
538 
1.503 
663 
785 
1.014 
1.711 
635 



1.024 
1,069 



ERIC 
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KENOSHA (Continued) 



Kenosha city 
Wardl 
•2 
3 
4 

'Paris town 
feasant Prairie town 
Randall trtwn 

Salem town induding Wilmot vijlage 

WBmot village 
Somere town 

Wheatland town incL New Munster village 
New Munster village 

KEWAUNEE 



S,039 
1,777 
1.192 
1.098 
972 
^ 1,002 
\ 1.336 
^ 451 
' 1,286 
190 
'*li4S8 
835 
87 



LA FAYETTE (Continued) 

Monturellotown 
New Diggi&gB town 
SeyuMiur town 

ShuUsbui^ town, ind. Shullsburg village 

ShuUsburg village 
Wayne town 
White Oak Springs town 
Willow Springs town 
Wiota t&wn 



LANGLADE 



Carpenter town 
Langlade town 
Sprhigbrook town 



LA CROSSE 



Bangor town ' 
Barre town 
Bums town 
Cani|il»ell town 
Fanningtoa town 
Greenfield town 
Hamilton town 
KUdland town 
La Crosse chy 
Ward 1 

2 

3 

4 

5 

Onalaska town 
Sl»Iby town 
Washington town 



1,196 

656 
1,021 

885 
1,686 

869 
1,661 

874 
14,505 
3,168 
1.958 
5,112 
1,342 
2.925 
1,916 

796 
1.008 



LAFAYETTE 



Angrle town 


1,225 


Belmcmt town 


1,244 


Benton town 


1,519 


Blaildiard fown 


622 


Daritngtoo town, including Darlington city 


2,599 


Dttiitegtosi city 


1,372 


Elk Grove town 


959 


Fayvtte town 


1,148 


Gri^tottown 


1,634 


KemiaB town 


840 



413 
1,641 

898 
2,245 
1,168 
1,066 

451 
1,089 
1,687 

y 



44 

368 
273 



Ahn^iee city 


948 




LINCOLN 




Ahnc^iee town 


1,430 








Carlton town 


1,604 


Ackley town 




184 


Casco.town 


1,659 


Coming town 




112 


Franklin town 


1,601 


Jenny town 




1,336 


Kewaunee town, ind. Kewaunee village 


1,352 


Pine< River town 




278 


Kewaunee village 


1,050 


Rock Falls town 




101 


Lincoln town 


1,147 








Montpelier town 


1.405 




MANITOWOC 




Pierce town 


1,743 








Red River town 


1.582 


Cato town 




1,875 


W^t Kewaunee town 


1.336 


Centreville town 




1.560 



Cooperstown town 1.700 

Eaton town 1.524 

Franklin town 1.875 

Gilraon town. 1,739 

Kossuth town * 2.t68 

Liberty town 1.387 

ManitoWdty/ ^ 6.367 

Manitowoc -town ^ 1.282 

Manitowoc Bapids town 2,077 

Maple Grove town 1,623 

Meeme town 1,684 

Miahicot town >^ 1,668 

Newton towp 1,867 

Rockland town 1,234 

Schleswig town 2,069 

Two CredKS town ^ 630 

Two Rivers dty 2,052 

Two Rivers town 1,324 

MARATHON 

Bergem town 450 

Berlin town 1,000 

Brighton town 726 

Easton town 186 

Handnu^town ' '563 

Holtontown ^ 490 

HuU town 720 

Knowtttm town • 379 

Maine town 880 

Marathon town 8T1 

M«»inee town, including Mosinee village 882 

Mosinee village 201 



ERIC 
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MARATHON (ConUnued) 



Rib Falls town 
Rifitbrock town 
opencor town 
Stettfai town 
Texas town 
Wausau city 
Watis&u town ' 
Wraton tovn 
Wien Uftm 

t 

\ 

Marinette town 
Peahtigo town 



MARINETTE 



MARQ^JETTE 



BufTalo town 
Crystal Lake town 
Dou^as town ||| 
Harris town 
Meean town 

Montello town, including Montelly village 

Montello village 
Moundvilte town ( 
Neshkoro town 
NewUm town . — 



Oxford toAm | , 

Shields town ^C,--^ 
S|u1ngfield town 



Westfield town 



MILWAUK£:£ 



Franklin town 
Granville town 
Green&ld town 

Lake town, including Bay View village 

Bay View Village 
Milwaukee city 
Ward 1 , 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 1 

12 

13 

Milwaukee town | 
Oak Creek town 
WauwatMa town 



MONROE 



Adrian town 



674 
409 
1,091 
684 
468 
4,277 
1,061 
968 
462 



5,412 
3,617 



750 
644 
657 
534 
621 
950 
394 
334 
589 
724 
532 
691 
620 
428 
834 



1,819 
2,370 
2,674 
5,430 
2,8/^2 
115,687 

11,016 

14,406 
6,891 

12,491 
8,641 
9,639 
7,192 
7,908 

10,00^ 
8,895 
8,881 
6,448 
4,172 
3,472 
2,097 
5,088 



716 



MONHOE (Continued) 

Angeio town 
Bs^n town 
Clifton town 
Glendale town 
Greenfield town 
^Jefferson town 
La Fayette town 
La Grange town 
Leon town 
Uncoln town 
Little Falls town 
New Lyme town 
^ • -"ale town 
- ' OKJ town 
5ville town 
btieldoo town 

Sparta town, including Sparta villas 

Sparta village 
Tomah town, including Tomah village 

Tomah village 
Wellington town 
Wells town 
Wilton town 



OCONTO 



Gillett town 
Howe town 
Little River town 
Little Suamico town 
Mapte Valtey town 
Oconto city 
Wardl (north) 

2 (west)] 

3 (southV 

4 (east) 
Oconto town 
Pensaukee town 
Stiles town 



OUTAGAMIE 



Appleton city 
Ward 1 
2 
3 
4 
6 
6 

Bl^ Creek town 
Bovina town 
Buchanan town 
Center fown 
Cicnro town 
Dale town 
Deer .Creek town 
EaUdgtcm town 
Freedom town 
Grand Chute town 
Greenville town 
Hortonia town 



469 
416 
884 
1,401 
686 
1,087 
4C2 
839 
748 
976 
705 
140 
733 
1,056 
1,286 
794 
3,469 
2,387 
2,106 
1,245 
1,060 
668 
1,099 



637 
178 
696 
942 
689 

4,171 
^86 
810 

1,619 

1,067 
893 

1,420 
'323 



8,006 
1,273 
2,662 
1,616 
870 
869 
725 
1,286 

m 

1,010 
1,696 

777 
1,123 

653 
1,377 
1,663 
1,578 
1,326 
1,193 
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OUTAGAMIE (Continued) 



POLK (Continued) 



V 



Kaukauna town 
Ziboty town 
Maine town 
Ma|^ Creek town 
New Ldbdon city (part of) 
Osbom town 
Seymour city 
Seymour town 



OZAUKEE 



Belgium town 
Cedarburg town 
Fredonia town 
Grafton town 
Moquoritown^ 
Pmx Washington town 
Saukville town 

PEPIN 

Albany town 

Duraml town, including Durand villain 

- I>urand village^ ^ 

FrankAnttown 

Lima town 

Pepin town 

Stockholm town 

waterviUe town 

Wai^)eek town 



PIERCE 



Clifton town 
Diamimd Bluff town 
El Pasc town 
EUsworth town 
Gilmantown ^ 
Hartlaml town 
Isabelle town 
Mauien Rock town 
Martel town 
Oak Grove town 
Firesoott city 
Rhrctr Falls town 
Rock Elm town 
Salem town 
Skiring Lake town 
Trenton town 
Trimbelle town 
Unkm town 



Alden town 
Apjde River town 
Bakam Lake town 
^ack jrook town 
Oam Falls town 
Qaytimtown 
^im Lake town 



POLK 



2,235 
504 
403 
818 
256 
612 
850 
762 



1,948 
2,536 
1,839 
1,570 
3,023 
2,604 
1,941 



' 431 
879 
642 
639 
605 

1,515 
763 

1,197 
197 



703 
534 
690 

1.502 
888 

1,215 
250 

1,376 

1,284 
973 
975 

2,516 
899 
478 
843 
737 

1,148 
734 



1,274 
412 
367 
722 
115 
546 
809 



Eureka town " 
Farmington town 
Georgetown town 
Laketown town 
Lincoln town 
Loraine town 
Luck town 
Milltown town 
Osqeola town 
Samt Crois Falls town 
Sterling town 
W^t Sweden town 



PORTAGE 



Alb an town 
Almond town 
Amherst town 
Belmont town 
Buena Vista town 
Carson town 
Elau Plaine town 
Grtuat town 
Hull town ^ 
Lanark to^ 
Lonwood town 
New Hope town 
Pine Gro^ towii 
Plover town 
Sharon town 
Stevens Point city 
Ward 1 

2 

3 

4 

Stevens Point town- 
Stockton town 



Brannan town 
Fifield town 
Worcester town 



PRICE 



RACINE 



Burlington town 
Caledonia town 
Dover town 
Mount Fleasant town 
Norway town 
Racine city 
Ward 1 

2 

3 

4 
' 5 

6 ' 
Raymond town 
Rochester town 
Waterford town 



595 
968 
123 
461 

557 
' 109 
270 
282 
1,297 
542 
406 
173 



^10 
872 
1,375 
535 
830 
426 
698 
309 
1,044 
. 663 
400 
801 
339 
1,220 
1,639 
4,449 
1,020 
1,378 
1,063 
988 
569 
1,346 



278 
230 
277 



2,738 
2,654 

927 
2,166 

981 
16,031 
1.414 
1,796 
2,892 
3,916 
3,740 
2,273 
1,667 

776 
1,451 



ERIC 
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RACINE (Continued) , 



SAINT CROIX (Continued) 



Yorkville town 



RICHLAND 



Akan town 
Bloom town 
•Buena Vista town 
Dayton town 
Eagle town 
Forest town 
Henrietta town 
■ ItlAca town 
• Marshall town 
Orion town ^. 
RidiUuid town, ind. Richland Center village 

Richland Center village 
Richwood town , 
Rockhndge town 
Syhran town 
-Westford town 
Willow town . 

ROCK 



« Avon town 
Beloit dty 
Ward 1 
2 
8 
4 

, Beloit. town 
Bradford town 
CentOT town 
Clinton town 
Fulton town 
Harmony town 
JanesviUe dty 
Ward 1 

2 

3 

4 

6 

Janesville town 
Johnstown town 
La Prairie town 
Luna town 
Magnolia town 
BGlton toPm 
Newarii: town 
Plyniputh town 
Porter town 
Rock town 
Spring Valley town 
Turtle town 

Unum town, induding Evansville village 
Evansville viUage 

' SAINT CROIX 

Baklwin town, induding Baldwin village 
Baldwin village 



1,532 



841 
1,358 
1,076 
1,109 
1,303 
'950 
1,005 
1,110 

989 

733 
2^048 
1,227 
1,515 
1,200 
1U135 
1,002 

901 



J 



815 
4,790 
1,304 
1,006 
fl,229 
i 1,251 
V 707 

979 
1,105 
2,126 
2,244 
1,085 
9,018 
2,313 
1,778 
1,415 
2,495 
1,017 

900 
1,217 

819 
1,094 
1,143 
1,794 
1,130 
1,245 
1,224 
1,(K)6 
1,172 
1,133 
2,077 
1,068 



1,228 
591 



Cady town ' 
Cylon town 
Eau GaUe town 
Emerald town 

Erin Prairie'town \ 
Hammond town 
Hudson dty 
Wardl 

2 

3 

Hudson town ^ 
Kinniddnnic town . • 

New Ridunond town, induding part of New 
Richmond viUage 
New Richmond village (part of) 
Pleasant Vall'^y town ' 
Rush River town 
Saint Joseph town 
Somerrat town , 
Spri^jidd town 
Stanlbn town 

Star Prairie town, including part of New 
Richmond village 
New Richmond v^age (part of) 
Troy town 
Warren town 

SAUK* 

Baraboo town, iroluding Baraboo village , 

Baraboo village 
Bear Creek town 
DeUona town 
Delton town 
Escdsior town 
Fairfield town 
Franklin town 
Fr^om town 
Greenfield town 
Honey Creek town 
Ironton town 
Lavalle town 
Merrimack town 

Prairie du Sac town, incl Sauk City village 

Sauk Cit^ village 
Reedsburg town, ind. Reedsburg village 

Reedsburg village 
Spring Green town, ind. Spring Green vill. 

Spring Green village 
Sumpter town 
Troy town 
Washmgton town 
Westfield town 
Winfield town 
Woodland town 



SHAWANO 



Almon town 
Angelica town 
Belle Plain town 



516 
716 
%46 
619 
1,013 
1,418 
2,298 
455 
1,061 
782 
665 
778 

1,386 
573 
593 
677 
642 
968 

1,«7;2 
752 

944 

156 
979 
746 



4,594 
3,266 
808 
680 
857 
1,109 
744 
1,010 
1,332 
792 
1,248 
1,310 
1,364 
. 829 
1,963 
917 
2,546 
1,331 
1,090 
460 
746 
1,029 
1,176 
1,462 
773 
1,368 



303 
335 
735 
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SHAWANO (Continued) ^ 


• 


ft. 

TREMPEALEAU (Continued) 


.0 


Fairbanks town 


191 


Hale town 


1 OA 1 

1,301 


Grant town 


757 


Lincoln town 


863 


.Green Valley* town 


g\ f\ n 

392 


F^eon town 


793 


Hartland town 


1,196 


Preston town 


lf53P 


Herman town 


A aft 

462 


Sumner town 


693 


Hutrainson town ^ 


280 


Trempealeau town, incL Trempealeau vilL 


1,567 


liessor town 


465 


Trempealeau village 


615 


Maple Grove town 


600 


Unity town 


561 


MUltown town 


485 






Navarino town 


189 


VERNON 




FeUa town 


. 585 






iwhnHma town 


706 


Bergen town 


1,014 


Seneca town 


346 


Christiana town 


1,305 


Shawano city 


890 


Clinton town 


1,008 


Washington town ^ 


' 809 


Cron town 


983 


Waukechon town 


645 


Forrat town 








Frankhi^town 


1,319 


SHEBOYGAN 




Genoa town 


919 



Greenbush town, ind. Glenbeulah village 

Glenbeulab village 
Herman town 
HoUaiid.town 
lima town 
Lyndon town 
Mitchell town 
Mrael town ^ 
Hymouth city 
Pljonouth town 
Rhine town 
Ru^ell town 
Scott town 
Sheboygan city 
Ward 1 ^ 

2 

3 

4 

5 

Sh^ygan town 
Sheboygan Falls town 
Shebc^^an Falls village 
Sherman town # 
Wilson town 



TAYLOR 



Chelsea town 

Little OBlack town ' 
Medford town 
W^tboro town 

TREMPEALEAU 

Aibion town 

Areadia town, including Arcadia village 

Arcac&i viyaee 
Burnside town 
CatedoniB town 
Dodge town 
Ettrick town 
Gale town ^ 



1,977 

375 
2,133 
3,012 
2,126 
1,704 
1,178 
1,011 
1,052 
1,482 
1,542 

667 
1,684 
7,314 
1,278 
2,310 

769 
2,125 

832 
1,616 
1,810 
1,148 
1,760 
1,210 



298 
763 
1,020 
230 



666 
3,167 

66{; 
1,591 

446 

569 
1,656 
1,786 



Greenwood town 
Hamburg town 
Hamumy town 
Hillsborough town 
Jefferson town 
Kickapoo town 
liberty town 
Stark town 
Sterling town 
Union town 

Viroqua town, including Viroqua village 

Viroqua village 
Webster town 
Wheatland town . 
Whitestoiyn town 



1,050 
1,156 
1,062 
1,218 
1,284 
1,233 
543 
954 
1,382 
741 
2,368 
762 
1,060 
917 
830 



WALWORTH 

Bk)omfiekl town ^ 
Darien tQwn 

I^lavan town, including Delavan village 

Delavan village 
East Troy town, including East Troy village 

East Tiroy village 
iHkhorn viUage 

GeiM^va town,jiuluding Geneva village 

Geneva village 
La Fayette town 
La Grange town 
Linn town 
Lyons town 
Richmond town 
Sharon town 
Spring Prairw town 
Sug^ Creek town 
Troy town 
Wa! .vorth town 

Whitewater town, incl. Whitewater village 
Whitewater village 



WASHINGTON 



Addison town 



1,097 
1,394 
2,560 
1,798 
i,407 
368 
1,122 
2,899 
1,969 
1,028 
921 
823 
1,312 
882 
1,956 
1,107 
980 
964 
1.279 
4,519 
^,617 



1,774 
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t 

WASHINGTON (Continued) 

4 • « 

Barton toym 
Erin town 
, Famingtoirtown 
Germanton town 

Hartford town ^ 
Jackson town 
Kewasknm town 

«Polk town, incL Schleisingerville village 

SchleiffingerviUe villaife 
Richfield town 
Trenton town 
Wayne town 
West Bend town 
West Bend village 

WAPKESHA 

Brookfield town 
Delafield town 
r Eagle town 
Genraee town 
Lisbon tdwn 
Menomonee town 
Merton town 
Mukwonago town 
Muskego town 
New Berlin town 
Orononrowoc city 
Oranomowoc town 
Ottawa town 

IWaukee town, incl Pewaukee village 

Fevwukee village 
Summit town 
Venum town 
Waukesha town ^ 

WAUPACA ' 

Bear Creek town 
Catobmia town 
Daytcm town 
Dupont town 
Fannington town 
fVemimt town 
Heliwtia town 
lola town 

Larrabee town, incl. Clintonville village 

Qintonville village 
Lebanon town 
Liiui town 
little Wolf town 
Mat tea m i town 
Mukwa tatm 
New Lo»fam dty (part of) 
Royahon town 
Saint Lawrence town 
Srapdinavia town 
Unfamtown 
Waupaca dty 
Wai^mca town 



1,276 

1,273 

1,770 

1,979 

2,739 

1,844 

1,436 ' 

2,037 

358 
1,708 ■ 
1,890 
1,594 

850 
1,273 



2,096 
1,451 
1,156 
1,368 
1,437 
2,258 
1,577 
1,084 
1,422 
1,620 
2,174 
1,336 

841 
2,192 ' 

566 
7,138 
1,195 
4,613 



984 
902 
801 
654 
764 
879 
243 
- 979 
1,385. 
573 
843 
978 
1,342 
520 
1,022 
1,552 
1,086 
874 
-987 
684 
1.392 
841 



WAUPACA (Continued) 

Weyauwega town, incl. Weyauwega village 1,243 
Weyauwega village 722 



WAUSHARA 

Aurora town 
Bloomfield town 
Coloma town 
Dakota town 
Deerfiekl town 
HancMsk town 
Leon town 
Marion town 
Mount Morris town 
Oasis town 
Plainfield town 
Poysippi town 
Richford town 
Rose town 
Saxville town 
Spring Water town 
Warren town 
Wautoma town 

WINNEBAGO 

Algoma town 
Black Wolf town 
Clajrton town 
Menasha city 
Menasha town 
Neenah city 
Ward 1 

2 

3 

4 

Neenah town 
Nekimi town 
Nepeuskun town 

Omro town, indudix^ Omro village 

Omro village 
Oshk(»h dty 
Ward 1 
2 
3 
4 



6 

Oshkosh town 
Poygan town 
Rushford town 
Utica town 
Vinlaral town- 
Winchester town 
Winneoonne town 
Wolf River town 



Aubumdale town 
Centralia dty 



1,031 
1,384 
443 
537 
307 
575 
768 
582 
665 
628 
1,109 
1,031 
449 
464 
719 
' 577 
660 
708 



791 

888 
1,270 
3,144 

631 
4,202 
1,305 
1,343 
1,141 

413 

588 
1,226 
1,050 
2,694 
1,476 
15,748 
2,965 
2,618 
2,679 
3,696 
1,702 
2,188 
1,384 

925 
2,059 
1,045 
1,069 
1.176 
1,910 

940 



WOOD 



809 
806 



ERIC 
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WOOD (Continued) 



WOOD (Continued) 



Dexter town 209 

Grand Rapids city 1,3^0 

Grax»i Rapids town 656 

Iin»>ln town 532 

MarshfieM town 1*001 

Pbrt Edwards town 348 

Remington town 196 



Bock town 261 

Rudolph town 908 

Saratc^ town 316 

SenecB town , -567 

Sigel town 656 

Wood town 366 



APPENDIX C 

For UM>8e interested in computer pro^tunming, a copy of the 1880 Census Program, written in 
Applesoft BASIC, is inciuded below. ■ " . - n 



10 REM 1880 CENSUS PROGrXm 

20 REM 

30 REM -CREATED BY 

40 REM * CUTFORD W. BASS 

50 REM 

60 REM FOR USE BY 

70 REM GREEN BAY CORRECTIONAL msnrunON 

80 REM 

' 90 REM COPYRIGHT 1984 BY THE STATE HISTORICAL SOCIETY OF WISCONSIN 
100 REM ALL RIGHTS RESERVED 

110 DIMX(35).Y(35),L(35)42$(31)J$(36) 
120 FOR I - 0 TO 35: READ YO)^® NEXT I 
130 DATA6,17,30,6,14;i4,5,38,l,6,64,3,5,76,2,7,7,4,7,2b,3,7.39,14,7,65 
140 DATA 5,8, 13,4,8,30,4,8,48,20, 10,16,20, 10,46, 1,10,54, 1, 10,63,3, 1 1, 15 
150 DATA 3,11,37,1,11,62,1,12,13,15,12,50,2,13,10,20,13,40,1,13,65,1 
160 DATA 13,68,1,14,9,1,14,23,1,14;44,1,14,61,1,14,79,1,16,13,3,15,40,3 
170 DATA 15,67,3,16,12,1,23,22,5,10,20,4 

180 REM CHANGE HP = 1' TO HP = -1' TO MAKE THE PROGRAM START OUT NOT 

DISPLAYING THE SPECIAL KEY HELP MENU 
190 HP = 1 

200 SP$ = " . . -: PRINT CHR$ (4);'TR#3": PRINT CHR$ '4);"MAXFILES 

^^•♦^2 s 0 * 

210 ONERR GOTO 5910 

220 HE = 0: HOME : PRINT TAB< 31);" 1880 CENSUS PROGRAM" 

230 PRINT : PRINT TAB( 11);"C0PYRIGHT 1984 BY THE STATE HISTORICAL SOCIETY OF 

WISCONSIN" 
240 PRINT TAB( 31);"ALL RIGHTS RISERVED" 
250 VTAB 6: HTAB 19: CALL -958 
260 VTAB 5: PRINT : PRINT "ENTER FILENAME: "; 

270 IE - 0: PRINT WOY. GOTO 750 ' 
280 IF I$(0) = - THEN 270 

290 FOR I = 1 TO LEN (I$(0)):F1$ = MID$ a$(0),I,l) 

300 IF Fl$ < > "." AND Fl$ < > " " AND {Fl$ < "A'' OR Fl$ > "Z") AND (Fl$ < "0" OR . 

Fl$ > -9") THEN 330 
310 NEXT I 

320 GOTO 340 . * ° 

330 VTAB 6: HTAB 18: CALL - 868:I$(0) = "": GOTO 270 
340 PRINT 

360 VTAB 6: CALL - 868: HTAB 19: PRINT "PLEASE MAKE SURE THAT <CAP^ LOCK> IS 
DOWN" 

360 VTAB 8: HTAB INT ((50 - LEN (I$(0))) / 2): PRINT "PLEASE INSERT "^$(0);" DISK IN 

DRIVE 2" 
370 CALL -968 

380 VTAB 23: HTAB 30: PRINT "OK JO CONTINUE (Y/N)? ";: GET AS ' 
390 IF A$ < > "Y* AND A$ < > "y" THEN 250 
TR ^ 0 

410 HUNT : HUNT CHR$ (4);*1JNL0CK "a$(0);", D2" 
420 PRINT CHR$ (4);"0PBN "01(0);", L61" 
430 HUNT CHRI (4);"READ "a$(0);", RO" 
440 INPUT R$:ra=*VAL(LEFT$(R$,3)) 
460 IF TR > 0 THEN 540 

460 VTAB 23: HTAB 30: CALL • 868; VTAB 9: PRINT : PRINT "ENTER COUI>nT CODE: 

"^$(36); ' ^ ■ 
470 PRINT CHRI (4).IE = 35: GOTO 750 
480 IF LEN aK86)) < 4 THEN .470 
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490 I$(35) = *" 

600 FOR I = 0 TO SuT = ASC C12${D): IF J > 96 AND J < 123 THEN J = J - 32 
610 IF J < 65 OR J > 90 THEN 470 
520 I$(36) B I$(36) + am (J): NEXT I 
630 GOTO 560 
. 540 I$(35) = Mm$ {R$,4,4) 
560 PRINT CHR$ (4) 

660 HOME : PRINT TAB( 29);''Wisconsm 1880 Census": PRINT TAB( 34)a$(35);'* County" 
570 PRINT "File "'MOh TAB( 64 • LEN a$(0)));!ltecord" 

680 FtONT : PRINT "Subdiviraon:"; TAB^ 19);'*Class:"; TAB( 6};"Enuineration IKstrict:"; TAB( 

590 PRINT : HUNT "Page:"; TAB( 9);"Iine:"; TAB( 8);"Street Name:"; TAB( 19);"Hou8te #:" 

600 PRINT "Dwelling*:"; TAB( 9);"Family #:"; TAB( 9);"La8t Name:" 

610 PRINT : PRINT "First Name(s):"; TAB( 26);"Race:" TAB( 6);"Sex:"; TAB( 6);" Age:" 

620 PRINT "Relationship:"; TAB( 8);"Markal Status:"; TAB( 6);"Married Within Yean" 

630 PRINT "Occupation:"; TAB( 20);"MonQi8 Unemployed:" 

640 PRINT "lUn^:"; TAB( 26);"lak^"; TAB( 6);"Deaf7I>umb:"; TAB( 6):"Idiotic:" 

660 PRINT "Insane:*; TAB( 6);"Disabled:"; TAB( 6);" Attended School*"; TAB( 6);"Cannot Read:"; 

TAB( 6);"Cami^ Write:" 
660 PRINT "BirthpOce:"; TAB( 8);"Father'8 Birthplace:"; TAB( 8);"Motlmr's Bir)Ehplaee:" 
670 HUNT "Aualiaryi^HE =1 
680 IF TR > 0 THEN 720 - 
690 VtAB '3: POKE 36,76: PRINT "1"; 
700 IE = 1:CR = 1: IF E2 =<0 THEN 760 
710 E2 = 0: GOTO 740 
720 OR - TR: GOSUB 4620:IE = 12 
730 VTAB 23: HTAB 26: CALL • 868 

740 FORI = 1 TOSS: VTAB YO): POKE 36,X(D - 1: PRINT I$a);: NEXT I 
760 IF HE = 0 THEal»40: REM L > THIS UNE FOR E = 8 
760 IF HE = 1 THEN 780 

770 HE = 0: VTAB 17: PRINT : CALL - 868: GOTO 840 

780 GOSUB 6780:HE » 0: PRINT : PRINTg IF HP = • 1 THEN 840 

790 PRINT "L^ arrow • Move left RETURN • Next field CONTROL-F - Next record" 
800 PRINT "Rifl^ arrow - Move right TAB - Prev. field CONTROL-B • Prev. record" 

810 PRINT "CONTROL-A • Insert space Down arrow Next sect. QONTROL-G • Goto record x 
820 PRINT "DELETE • Del character Up arrow- Prev. sect. ? • Help" 

SO PRINT "CONTROL-D- Delete to eul of fiekl CONTROI^ • Quit"; 

0 VTAB Y(IE): POKE de^^OE) - 1 
860 U LEN (I$(IE)): IF U = 0 THEN 890 
860 FORI» ITOLIOSfa- 1) » BaD$ a$aE)J«l): NEXt I 
870- IF I2$<LI - 1) < > " " THEN 890 
.880 U = U- 1:IFU>0 THEN 870 
890 CP = 0 
WO GETA$ 

910 K B PEEK ( - 163194) 
920 IF K 63^THEN 1820 
930 IF K > 31 AND K < 127 THEN 980 
940 IF K = 127 THEN 1110 
960 IFK s 21 THEN 1060 
'960 IFK> 13THENm 
970 ONK GOTd 1 070.11 70,1710.1160,9<W,1170,1170.1030,1170,1170,1170,1020,1170 
980 IF CP e LOE) THEN 900 

990 I2$(CF) sA|: PRINT A$;: IF CP « LI THEN U= 'U+ 1 
1000 CP « CP + 1 
1010 GOTO 900 

1020 HP = - HHHE c 1: GOTO 760 

1030 IF CP'« e THEN 900 - 

1040 PRII^T CHR$ (8)pCP « CP - 1: G6T0 900 , 

1060 IF CP B U THEN 900 

1060. WNr I2KCP)'^CP s CP 1: GOTO 900 

1070 IF LI B L(IE) OR CP s u THEN MO 

10«> FCmisU-fTOCPSTEP - 10210 1} « lifd): NEXT I 
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1090 U = U + 1:I2$(GP). = * FOR I « CP TO U - 1: PRINT I2$(D;: NEXT I 
1100 POKE 36^(IE) + CP - 1: GOTO 900 
1110 IF CP fcU THEN 900 
1120 IF CP U . 1 THEN 1140 

U30 FCm I « OP TO U - 2:I2$(D = t^Q + 1): PRINT I2$a);: NEXT I 
1140 PRINT • ";: POKE 86^(IE) + CP - 1:U = U - 1: .GOTO 900 
;i60 IF CP = U THEN 900 

1160 PRINT LEFT$ (SP$4^ - CP);:U = CP: POKE 36.X(IE) ■»- CP - 1: GOTO 900 

1170 mm) = ""s IF U = 0 THEN 1190 

1180 FORI s OTOU - IJKIE) = I$(IE) + I2$(D: NEXT I 

1190 IF IE = 0 AND K = 18 THEN 280 

1200 IF IE = 36 AND K s . 13 THEN 480 

1210 IE s 34 AND K ? 13 THEN 1640 

1220 IF IE = 0 OR IE > 33 THEN 900 

1230 ON K GOTO 970.1270,970,970,970,1390,1460,970,1240,1680,1630,970,1680 

1240 IF IE - 1 THEN 1260 

12^0 IE = IE • 1: GOTO 750 -v 

1260 IE = 33: GrQTO 760 

1270 IF CR > 1 THEN 1300 

1280 GOSUB 6760 ' 

1290 VTAB 22: HUNT : PRINT 'WO HIEVIOUS RECORD": VTAB Y(IE): POKE 36JC(IE) + CP ■ 

1:HE = 1:.-G0T0 900 
1800 IF CR < » TR THEN 1360 
1310 GOSUB 6780 - 

1320 VT^ 22: PRINT : PRINT *OK TO SAVE CUMIENT RECORD (Y/N)? GET A$:HE = 1 
1330 IF A$'=> rY" OR A$ = *y* THEN 1360 
1340 GOTO^ 1370 . 
.1360 IF CR < TR THEN 4760 ' 
1360 QOSU^^OOO 
1370 CR = CR - 1: GOSUB 4520 
1380 IE s 12: GOTO 760 
1390 0OTO 4750 
1400 GOSUB 3960:CR CR + 1 
1410 IF CR > TR THEN 1440 
1420 GOSUB 4520 
1430 GOTO 1460 
,1440 GOSUB 6790 
1460 IE s 12: GOTO 750 
1460 IF CR < = TR THEN 1600 
1470 GOSUB 6780 

14fO VTAS 2& PRINT : PRINT "OK TO SAVE CURRENT RECORD (Y/N)? ";: GET AS: IF A$ = 

' "Y" OR A$ « V THEN 1610 
1490 GOTO 1630 
l60O IF CR < TR THEN 4760 
1610 QOSUB 3960 
1520. GOSUB 6780 

1630 VTAB 22: PRINT : PRINT "ENTER RECORD NUMBER:";: CALL - 868:IE = 34:HE = 

1:I$(S4) «"": GOTO 840 
1640 IE s 12: IF IKS4) s THEN 750 
1660 CR = INT ( VAL (I$(34))): IF CR < =0 THEN CR = 1 
1660 IF Oi > TR TBES CR = TR 
1670 GOSUB 4620aE « 12: GOTO 760 
1680 IF IS > 4 TOSS 1600 
1690 IE « 6: GOTO 760 
1600 IF IE > 11 THEN 1620 

16^0 IE B 12: GOTO 760 . . 

1620 IE = 1: GOTO 760 

1680 IF IE < 12 THEN 1660 

1640 IE s 6: GOTO 760 

1660 IF IE < 6 THEN 1670 

1660 IE = 1: GOTO 760 

1670 IE B 12: GOTO 760 

■ • ■ 
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1680 IFIE s 33 TH£N 1700 

169Q IE s IE -I- 1: GOTO 960 

1700 IE 1: OCrrO 750 

17.10 IF IE s 0 THEN 6340 

1720 IF IE - 34 THEN 760 ' 

1730 PRINT : PRINT CHR$ (4);"WRITE "a$<0);", RO" 

1740 R$ = STR$ (TR): IFTR < lOO THEN R$ = "0" + R$ 

1760 IP TR < 10 THEN R$ *= "0" + R$ 

1760 R$ » R$ -t- 1$(36) + SP$ + LEFT$ (SP$,22) 

1770 PRINTR$ 

1780 KUNT CHR$ (4);"CL0SE" . 
1790 u* IE ^ 36 THEN 260 
1800 FORI = OTO 36J$(D = NEXT I 
1810 GOTO 220 

1820 CH PEEK (36):CV = PEEK (37): REM L < THIS UNE FOR VO ERROR 
1830 IF IE s 0 THEN 1880 
1840 GOSUB 67 80;HE =1 
1860 IF IE > 18 THEN 1870 
1860 ON IE GOTO 

1000,1930,1960,1970,2010.2040,2060.2070,2080,2090.2100.2110,2120,2160.2170, 
2200,2490,26 10 , 

1870 ON IB r 18 GOTO 

2620,264p,2660,2560,2670,2580,2&90,2600,2610,2620,2630,2640,2650,2660, 

3700,900,3720 

1880 VTAB 7: PRINT : CALL » 968: PRINT CHR$ (4);*CATALOG, D2" 

1890 I$(0) = FOR I = 0 TO U - 1:I$(0) = I$(0) + I2$(D: NEXT I: GOTO 260: REM IF L < 

THIS LINE FOR I/O ERROR 
X900 PRINT nE«nter.tlie name of the community only" « 

1910 PRINT "Do not include the TYPE of community: City, Town/Township, or Village" 

' 1920 GOTO S960 
1930 PRINT "Enter the TYPE of cwnmunity": PRINT "C - City" 

' 1940 PRINT "T - Town/Township": PRINT "V . Villa^'' . 
1960 GOTO 3960 * 
1960 PRINT "Enter the Enumeration Dtfit. No. the top df the censue page": GOTO 3960 
1970 PRINT "Enter the name of tte ward": PRINT "Usually only the larger cities are divvied into 

wards" . , 
1980 PRINt "This fold will be blank wten mdesing rural areas" 

1990 .PRINT "Wards wiU usually be numbered, but sometimes y;ords will be used": PRINT "Use a 

maadiQum of two diaraeters to nasa& a ward* v 
. 200(0 ?9INT "B'it sayb TSast' eto if *Southwe8t' enter 'SW": GOTO 3960 ^ 
2010 nUNT "l^ntar ll» pa^ numbor": PRINT "Qo NOT eatear the mantu»rq)t Ta^ No.*" 
2020 PRINT "Efater the sheet mmber damped in ink fbUowed by the capital Mtar in the" 
2030 HONF" onwdfth^ page": GOTO 3960 
2040 PRINT "Entar the Use mlmberf : GOTO 3960 

20^ PRINT "E^nfeo' the name of tiw street if^tuihig the«dirMti<m": PRINT "For example: Enter 

'East Main St' iMttji^ 'Main St.*" 
2060 PRINT "The street name isw^Qing number from column 1": GOTO 3950 
2090 PRINT "Enter *be family number from column 2": GOTO 8960 
2100 .PRINT "Enter the surname from column 3*^ GOTO 3960 

2110 PRINT "Entttr the first name ami mkUto initial or nan^ fhun odumn 3": GOTO 3960 
2120 PRINT '^Sqter aik^fneo from ctAvsam 4": PRINT "W - White","B - Black" 
2180 VBWT "M - Bfuiirtto","C - Chinese": PRINT "I - Imlian/Native American" 
2140 GOTO 3950 

2160 PRINT "tiiter seat of person frmn dbhmm 6": PRINT "M - Mate" 
2160 PRINT "F-FBmafe"r GOTO 3960 

2170 Aunt *Tnl»r age from eohdnn 6": PRINT "fiater ag^ \ess than a year as tl% letter 'M' 

foHowod l^4heBumbTof meaths? 
2180 PRINT rignore the inmtlw over one y^" 

2190 PRINT "^i^es: If it siiys '7/12' you enter 'M?'": PRINT " If it zayn '1 9/12' you 
enter '1*": GOTO 8960 

22(N) PRINT 'Xeave Uankif edumn 8 says Head' or is blank, otherwise": PRINT "enter the 
.rriatkmahi^ to the head cidumn 8" 
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22^0 PRINT : PRINT : PRINT : PRINT : PRINT "TYPE "R* TO SEE RELATIONSHIP CODES. 

ANY OTHER KEY TO RETURN ";: GET A$ 
2220 IF A$ < ^ "R" AND A$ < > "r" THEN 3960 
2230 GC^UB 5780 

2240 TONT "ADA - Adopted ^ugfater BRL • %other-m-Uw FAL • Father-in-Uw" 
2^60 ITONT "ASN - Attopted Son COU-Oiusin GAT - Orand-Aunt" 

2260 PRINT "ANT - Aunt DAU • Dau^ter GDA - Granddauriiter" 

2270 PRINT "BOA - Boarder DAL - Davghter-in-Law GFA - Grandfather" 

2280 PRINT "BRP - Brotber FAT - Fatter GMA - Grandmother" 

2290 PRINT : PRINT "TYPE "N' FOR NEXT SCREEN, ANYTHING ELSE TO RETURN ":: GET 
A$ • - ^ 

2300 IF A$ < > "N" AND A$ < > "n" THEN 3950 
2310 GOSUB 6780 

2320 PRINT "GNP . Grand-Nephew GGF • Great^^raiidfather MOT - Mother" 

2330 PRINT "GNI - Grand-Niece GGM - Great-Grandmother MOL - Mother-in-Uw" 

2340 PRINT "GSN - Grandson ' GGS ■ Great-Grandson NEP - Nephew" 

2350 PRINT "GUC - Grand-Unde HUS • Husband NIE - Niece" 

2360 PRINT "GOD - Great<SranddaughteiNM - Inmate . OTH - Other/Unknown" 

2370 ^RINT : PRINT "TYPE "N* FOR NEXT SCREEN, FOR PREVIOUS SCREEN. ANY • 

OTHER KITY TOIffiTUim ";:tSET A$ 
2380 IF A$ s "P" OR A$ = "p" THEN 2230 
2390 IF A$ < > "N" AND A$ < > "n" THEN 3950 
2400 GOSUB 5780 

2410 PRINT "ROO - Roomer SOL • Son-in-Law c S SSN - Stepson" 

2420 PRINT "SER - Servant SDA - StepdauAter UNC - Uncle" 

2430 PRINT "SIS • Sister SFA - Stepfatter WIF - Wife" < 

2440 PRINT "SIL - Sister-in-Law SMA - Stepmother WOR - Worker" 

2460 PRINT "SON - Son" ♦ 

2460 PRINT : PRINT "TYPE T* FOR PREVIOUS SCREEN, ANY OTHER KEY TO RETURN ":• 
GETAI 

2470 IF A| =5."P" OR A$ « "p" THEN 23i6 
2480 GOTO 3950 

2490 PRINT "Enter tte marital status from columns 9-11": PRINT "S • Single","M • Married" 

26W) nUNT "W - Widovred",'^ . Divorced": PRINT "Blank • None giW*; GOTO 3950 

2510 'PRINT "Indicate if married within the census year from column 12": GOTO 3940 

2620 PRINT "Enter occupation from cohmm 13": PRINT "Omit these occu|»tion6:" 

2630 PRINT "At sdio(d","At home": PRINT "Keeling hou8e","Hou8ekBeper (unless a paid servant)* 

GOTO 3950 . 
2640 PRINT "Enter number of months unemployed from column 14": GOTO 3950 
2550 PRINT "Enter iUness from column 15": GOTO 3950 

2560 PRINT "Imiicafie if blind from ctAvasm 16": GOTO 3940 > 
2570 HUNT "Indicate if deaCUumb fim c^umn IT*: GOTO 3940 
2680 PRINT "Indkate if kiiotic finom column 18": GOTO 8940 
2690 PRINT "Indicate if insane from column 19": GOTO 3940 
2600 PRINT "Indicate if disaUed finom cc^umn 20": GOTO 3940 

2610 nONT "Indicate if att^ided sdiofd during oesum year from cdumn 21": GOTO 3940 
9620 nUNT "Indieatejf unaUe to read from cohmm 22**: GOTO 3940 
2680 PRINT "Ittdkatgif unable to write from column 23": GOTO 3940 
;S640 PRINT "Enter the place of Inrtfa from edumn 24": GOTO 2670 

2660 PRINT "Enter talOier'B place of birth fttmi eohmon 26": GOTO 2670 ^ 

2660 PRINT "Enter mother's place of Urth fhnn column 26* 

2670 PRINT "If the |daoB<tfl^ is mt in the fbUowfav lists, oris umeadabte^^^ 



2680 PRINT : PRINT "TYPE "S' FOR STATE CODES, X' FOR COUNTRY CODES. 'G' FOR 

GERMAN STATE CODES": PRINT "ANY OTHER KEY TO RETURN ":: GET A$ 
2690 IF A| = "S" OR A$ = "s" THEN 3470 
;Z7(M) IF A$ « "O" OR A$ s "g" THEN 8060 
2710IFA$< >"C"ANDA$< >"c"THEN8960 
2720 GOSUB 6780 

2780 PRINT "AFR - AlHca AUS - Austria BOH - Bolwmia" 

2740 PRINT "ANT - Antigua AZO- Azores BAM • British America" 

2760 PRINT "ASI • A^ (unspedfied) BAR-Barbados CAN-Canada" 
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27Q» PRINT *'ATL • Atlahtic Islands BEL - Belgium . ■ CNR • Canary tsla^ds" 
2770 PRINT "Mft • Australia BER - BermucU CEN - Central America** 

2780 PRINT : PRn^T *TyPE *N* FOR NEXT SCR£^, ANY OTHER KEYTO RETURN GET 
A$:IF A$< >*T^*ANDA$< > **n- THEN 3960 ■ ' / 
2790 GOSUB 5780 i 

2800 PRINT "CUB • Cuba FRA - France GRN • Grenada** 

2810 PRINT -DEN* Denmark - GER - Germany , Ht)L • Holland!* * 

2820 PRINT *'ENG - En^an^ GIB - GOiraltar ^HUN - Hungary" •> 

2830 PRINT **EUR • Europe (unspecified) GBR - GreatBritain IND - India** i 

2840. PRINT •'FIN. Finland GRE- Greece IRE - ireland"' 

2860 TONT : PRINT *'TYPE *N* FOR NEXT SCREEN/T' PGR PREVIOUS SCREEN. ANY 

(miER KEY TO RETURN **;: GET A$ 
2860 IP A$ **•!»" OR A$ = .THEN 2720 * 
2870 IF A$ < > •*N'* AND A$ < > "n" THEN 3950 
2880 GOSUB 5780 . « « . 

2890 PRINT '*IOM- Isle of Man MAL. - Malta ' NOR -Norway** 

2900 ?RINT **ITA -Italy MEX- Mexico NSC • Nova Scotia" 

291Q PRINT "JAP - Japan HOL * Netherlands PAC - J>acifie Islands" 

2920 PRINT "LEB • Ldianon , NBR - New Brunswick • POL - Poland" 

2930 PRINT "LUX • Lusiembourg ' NWF - NewfouiKUand POR • l>Ortugal" 
2940 PRINT : PRINT "TYPE *N* FOR NEXT SCREEN, T' POR PREVIOUS SCREEN, ANY 

OTHER KEY TO RETURN ";: GET A$ 
2960' J5' A$ =. "P" OR A$ = "p'-THEN 2790 
2960 IF A$ < > "N" AND. A$ < > "n" THEN 3960 
2970 GOSUB 5780 

2980 PRINT "PEI-Prince Edward Island SAM - South America TRI • Trinidad" 

2990 PRINT "RUS - Russia SPA - Spain TU?l - Turkey" 

3000 raiNT "HI ' Sandwich Islands SWE • Sweden WAL - Wales" 

3010 PRINT "SCO - Scotland SWI - Switzerland WIN • West Indi^" 

3020 PRINT "SAF - South Africa ' SYR - Syria SEA - At Sea" 

3030 VTAB 23: PRINT : PRINT "TYPE FOR PREVIOUS SCREEN-, ANY OTHER KEY TO 

RETURN ";: GET A$ * ' 

3040 IF A$ = "P" OR A$ "p" THEN 2880 . 
3060 GOTO 3960 V 
3060 GOSUB $780 
4.3070 PRINT "ALS - Alsace ' BRA - Brandeiiburg"^ 

3080 PRINT "ALL • Alsace-Lorraine . BRU • Brunswick/Bratanschweig" 

3090 PRtNT "ANH - Anhalt HAM - Hamburg" 

3100 PRINT "BAD - Baden i " HAN - Hknover/Hannover" 

3110 PRINT "BAV - Bavaria/Bayem/Biron HES - H^se/Hessen" 

3120 PRINT : PRINT "TYPE 'N^ FOR NEXT SCREEN, ANY OTHER KEY TO RETURN ";: GET- 



3130 IF A$ < > "N" AND A$ < > "n" THEN 3950 
3140 GOSUB 6780 

3160 PRINT "HCA - Hefise^a^el/Herae-Kassel HOH - Hohenscdlem" 

3160 PRINT HDA • Hrase-Darmstadt HHE - HolMnaoltom-Hechingen" 

3170 PRINT "HHO - Hesse-Homburg HSI • Hobensollem-Sigmaringen" 

3180 PRINT "HPH - Hesse-Philipp^hal UP-Cippe" 

3190 PRINT "HPB • Hesse-niilippsthal-Bazrhfekl LK , Uppe-Biesterfeld" 

3200 TONT : HUNT "TYPE T»r FOR NEXT SCREEN, *F POR PREVIOUS SCREEN, ANY 

OTHER TO RETURN ";: GET A$ . V 

3210 IF A$ « "P" OR A$ = "p" THEN 8060 
3220 1FA$< >"N"ANDA$< >"n"THEN3960 
3230 GOSUB 6780 

3240 PRINT "LWI - lippe-WeisMnfold^ MOR - Moravia" 

3250 PRINT "LUE • Luebedi/I^ibeck NAS - Nassau" 

3260, PRINT "fifflC-Bfeddeidnirg OLD - Old^iburg" 

3270 PRINT "MQ3C " Meddmburi^dswerin POM -.Ponmrania/FonmwiTi" 

8280 PRINT "MST - Med^tenburfStinetitz PRU - Prussia/Preussen" . 

8290 PRINT:PRINT"TYPE'N'F0RNEXT8CREEN,'F FOR PREVIOUS SCREEN, ANY 

OTHER TO RETURN ";:'GET A$ ' 
asm) IF A$ = "P* OR A$ = "p" THEN 8140 

84 
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3310 
3320 
3330 
3340 
3350 
3360 
3370 
3880 

3380 
3400 
3410 
3420 
3430 
3440 

3460 
3460 
3470 
3480 
3490 
3600 
3610 
3620 
3630 

3640 
3660 
3660 
3670 
3680 
3590 
3600 
3610 

3620 
3630 
3640 
3660 
3666 
3660 
3670 

3680 
3690 
3700 
3710 
3720 
3780 
8740 
87S0 
8760 
877Q 
8780 
8790 
8800 
3810 
3820 
8830 
8840 

8860 



IF A$ < > "N" AND A$ < > "n" THEN 3950 
OOSUB 6780 ^ i 

PRINT "SXA - Saze-AItenburg > 
raiNT "SXC • Saxe-Coburg 
nONT "SXM - Saz«-Mdningen 
PRINT "SXW . Saxe-Weknar 
PRINT "SAX - Saxony/Sachsen 



SLI - Schaumbui^Xdppe" 
SHO • Schteswig^Holstein'' 
SCR • Schwarzburg-Rudolstadi" 
SCS • Scfawanburg-Sonderehausen" ' 

SIL - Silvia" 

PRINT -TYPE T*' FOR NEXT SCREEN, T' FOR PREVIOUS SCREEN, ANY 
OTHER KEY TO RETURN GET A$ 
IF A$ = •P" OR A$ = "p" THEN 3230 
IFA$<' > "N* AND A$ < > 
GOSUB6780 

S5SiII32?'^*"«* WUR . Wurttemburgnif ufsrttemburg" 

PRINT "WEI - Weimar": PRINT : PRINT : PRINT 

PRgJT : PRINT "TYPE T' FOR PREVIOUS SCREEN, ANY OTHER KEY TO RETURN 
GET A$ 



•'n" THEN 3960 



irA$ = "P-ORA$ = 
GOTO 3960 
GOSUB 6780 
PRINT "AL - Alabama 
PRINT "AZ 
PRINT "AR 
PRINT "CA 
PRINT "CO 



"p" THEN 3329 



CT - Connecticut 
DK - Dakota Terr. 
DE - Delaware 
JK ' Dist. Columbia 

FL- Florida ^ 

PRINT ; PRINT "TYPE "N* FOR NEXT SCREEN, ANY OTHER KEY TO RETURN 
A8 



Arizona Terr. 
Arkansas 
California 
Colorado 



GA • GeOTgia 
ID - Idaho Terr. 
IL : Illinois 
IN - Indiana 
lA - loiva 



KS 
KY 
LA 
ME 
MD 



Kansas" 
Kentucky" 
Louisiana" 
Maine" 
Maryland" 

;: GET 



PRINT "MI 
PRINT "MN 
PRINT "MS 
PRINT "MO 



■ Pennsylvania" 
Rhode Island" 
South Carolina' 

■ Tennrasee" 
Texas' 



IF A$ < > "N" AND A$ < > "n" THEN 3960 
GOSUB 5780 

PRINT *MA - MassachusettaMT - Montana Terr. NM - New Mexico TePA 
Michigan NE • Nebraska NY -New York RI 
. Bfinnesota NV - Nevada NC • North Carolina SC 

Mississippi NH • New Hampshir^H - Ohio IN 
i:::^^ ':::^^J^S^ , rW-NewJersey OR-Oregon TX - Texas" 

ragJTTj PRINT "TYPE TO* FOR NEXT SCREEN. FOR PRJIVIOUS SCREEN, ANY 
OTHER KEY TO RETURN";: GET A$ 
IF A$ e "P" OR A$ = "p" THEN 3470 
IF A$ < > "N" AND A$ < > "n" THEN 3960 
GOSUB 5780 

PRINT "UT - Utah Ten itory WA - Washhigton Territory* WY 
PRINT "VT - Vermont - WV - West Virginia US • 

TONT"VA- Virginia WI-WiacoMin ^u»«i«»«w 

^^^njJ^^ ■JSP"' • ™^ ""^"^ *^ PREVIOUS SCREEN, Ativ mSmKEY 
TO RETURN ";: GET A$ 

ir,A$ e "P" OR A$ = "p" THEN 3560 

GOTO 8060 

PRINT "Uw thto BsAd to mark a nword you're unsure abtmt with an asterisk (*)' 
PRINT "These records win be spedally reviewed later": GOTO 3950 



- Wjrdming Territory" 
AmerH» & United" ■ 
States (unspecified)" 



VTAB 11: PRINT : CALL 
PRINT "ADAM - Adami 
naNT"ASHL.Aahlai»l 
PRINT "BARR- Barron 
PRINT "BAYF - BvfieU 
raNT "BROW - Brown 
PRINT "BUFF - Buffalo 
PRINT "BURN - Burnett 
raiNT "CALli - Cahmiet 
PRINT "CHIP - Chinpewa 
PSINT "CLAR • dark 
raiNT "COLU - Cohimbia 



968** 
CRAW • Crawford 
DANE - Dane 
DODG- Dodge 
DOOR -Door 



IOWA 
JACK 
JEFF' 
JUNE 
KENO 



- hrwa 

■ Jacl^w 

■ Juneau 
KeiMMriia 



MARA • Marathon" 
MARI - Marinette" 



DOUG -Douglas 

DUNN - Dunn KEWA - Kewaunee 
EAUC - Eau Claire LACR - La Crotse 
FOND - Fond du LadJVFA - Lafayette 
GRAN - Grant LANG - Lcn^^de 
GRE£ - Green LINC - Lineoln 

GRLA - Green LakeMANI - Manitowoc 

PRINT : PRINT "TYPE FOR NEXT SCREEN. ANY OTHER KEY TQ RETURN *;: GET 
Af:IFA$< >"N"ANDA$< > "n" THEN 3960 ^ 
VTAB 11: PRINT : CALL - 968 



MARQ 
MILW 
MONR 
OCON 
OUTA 
OZAU 
PEPI - 



- Marquette" 
Milwaukee" 

- Mtmroe** 

- Oconto" 

- Outagamie" 

- Ozaukee" 



PIER -Pierce" 
POLK-FMk 



ERIC 



86 
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8860 
3870 
3880 
3890 
3900 
3910 



»990 
/4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
% 4110 
* r4120 
4130 
4140 
4150 
4480 
4490 
46(K) 
4610 
4520 
4530 
4640 
4560 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4760 
4760 
4770 
4780 



PRINT "PORT - Fortage STCR • Saint Croix TREM • TrempealeauWAUP • Waupaca" 

PRINT "PRIC • Price SAUK -Sauk VERN - Vernon WAUS . Waushara" 

PRINT HAa - Racine SHAW -Shawano WALW - Walworth WINN - Winnebago" 

PRINT "RICH - Richland SHEB • Sheboygan WASH • Washington WOOD - Wood" 

PRINT "ROCK - Ro<^ TAYL - Taylor WAUK - Waukesha" 

VTAB 23: PRINT : HUNT "TYPE *F FOR PREVIOUS SCREEN, ANY OTHER KEY TO 

RETURN ";: GET A$ 

IF A$ s= "P" OR A$ = "p" THEN 3720 

QOT0S960 ^ 

"Y - Yes": PRINT "N or blank . No" 
VTAB YTO: POKE 36^(IE) + CP - 1: GOTO 900 ' N 
REM SAVE CURRENT RECORD AND UPDATE TR IF NECESSARY 
VTAB 17 

PRINT : PRINT CHR$ (4);"0PEN ";I$(0);", L6r 
PRINT CHR$ (4);"WRITE ";I$(0);", R";CR •3-2 
PRINT "1880Wra$(35); 
FORI = 1 TO 33 
IF I< > 10 TOEti 4050 

PRINT : HUNT CHR$ (4);"WRITE :;1$(0);^ R";CR * 3 - 1 
GOTO 4070 

IF I< > 19 THEN 4080 » 
PRINT " *: PRINT CHR$ (4);"WRITE ";I$(0);", R";CR * 3 
PRINT" "; 

IFI = 3ORI = 6 0RI = 6 0Ra>7 AND I< 11) OR I = 15 OR I = 20 THEN 4100 
GOTO 4120 

IF LEN (I$a)) = LO) THEN 4120 

PRINT LEFT$ (SP$.L(D - LEN a$a}));I$(D;: GOTO 4150 ' 

PRINT I$(D; " 

IF. LEN (I$a)) = L(D THEN 4150 

PRINT LEFT$ (SF$4^ - LEN a$(D)); * 

Niacri 

PRINT "7777" , 
IF CR > TF. THEN TR = TR + 1 > ■ 

PRINT CHR$ (4) 
RETURN 

REM RETRIEVE CURRENT RECORD INTO 1$; L < THIS UNE FOR I/O ERROR 
VTAB 17 

PRINT : PRINT CHR$ (4);"PPEK "^$(0);", L6r 
PRINT CHR« (4);*R|CAD/';t$((»: 
INPUTR$ ^ 
PRINT GHR$ (4)rR£AD "a$(0); 
INPUT R8$ 

, R";CR * 3 



", R";CR •3-2 
, R";CR "3-1 



HUNT CHR$ (4);"READ ";I$(0); 
INPUT R9$ 

R$ « R$ -I- MID$ nR8$,2,64) RIGHT$ (R9$.59) 
PRINT CHR$ (4) 
I$(35) s MID$ (R$,7,4) 

VTAB 3: POKE 36,75: PRINT CR;: IF CR > 99 THEN 4660 
PRINT " ";: IF CR < 10 THEN PRINT " "; 
J ^ 11 

FORI «1 TO 83 

I$(I)B MH^MJJ^) 

J e J + L(D- , 

VTAB Y(D: POKE SO^KO) - 1: PRINT I$(D; 

IF LEN (I$(D) e L(D THEN 4730 

PRINT LEFT$ (SP$44D - LEN (I$(D)); 

NEXTI 

RETURN 

REM CHECK FOR VALID VALUES; L < THIS LINE FOR I/O ERROR 
VTAB 17: PRINT : CALL -868 . , 

IF HE s 1 THEN CALL - 958 
I s LEN a$(19}: IF I s 0 TH^ 4810 



ERIC 
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4790 FOR J = 1 TO I: IF MID$ a$(l)HJ,l) < >' " " THEN 4820 
4800 NEXTJ 

4810 PRINT "Subdivision mu3t be filled in":IE = l:HE - 2: GOTO 840 
4820 IF I$(2) ss "» THEf^ 4950 

48S0 I B . ASC (I$(2)): IF I > 96 AND I< 123 THEN I = I • 32 
4840 IF I = 67 OR I B 84 OR I B 86 OR I s 88 THEN 488b 
4860 PRINT "Enter dassification of community" 
4860 IE s^JIE s 2: GOTO 840 * 
4870 IE s=>HE « 2: GOTO 840 

4880 I$(2) = CHR$ (I): IF VAL a$'(3)) > 0 THEN 4900 

4890 PRINT "Numeration district must be filled in":IE = 3:HE s, 2: GOTO 840 

49CW i$(3) = STR$ ( VAL a$(3))): IF LEN a$(4)) = 0 THEN 4930 

49l£ 25 = "-: FOR I « 1 TO LEN (I$(4)):J = ASC ( MID$ a$(4),I.l)): J > 96 AND J < 123 
THEN J = J - 32 

4920 T$ « T$ + CHR$ (J): NEXT I:I$(4) = T$: IF LEN a$(4)) = 1 AND VAL a$(4)) > 0 

THEN I$(4) ss - + i$(4) 
4930 IF VAL a$(6)) > 0 THEN 4950 

4940 PRINT "P^ge number must be filled in":I£ s 6:HE = 2: GOTO 840 
4960 I = ASC ( RIGHTS (I$(6),l)): IF I > 96 AND I < 123 THEN I = I - 32 
4960 IF I< 66 OR I > 90 THEN 4940 

4970 mS) = STR$ ( VAL (I$(6))) + CHR$ a): IF VAL a$(6)) > 0 THEN 4990 
4980 PRINT "Line number must be filled in":IE - 6:HE = 2: GOTO 840 
4990 IF LEN (I$(8)) ^ 0 THEN 6020 

"": FOR I = 1 TO LEN a$(8)).J = ASC ( MID$ a${8),I j)): IF J > 96 AND J < 123 
THEN J s J - 32 
6010 T$ = T$ + CHR$ (J): NEXT LI$(8) = T$ 
6020 IF VAL (I$(9)) > 0 THEN 6040 

6030 PRINT "Dvelling number must be filled in" JE = 9:HE = 2: GOTO 840 
6040 I$(9) = STO$ ( VAL (If (9))): IF VAL a$(10)) > 0 THEN 6060 
6060 PRINT "Family number must be filled in":IE = 10:HE = 2: GOTO 840 
6060 miO) = STR$ ( VAL (I$(10))):I = LEN (I$(ll)): IF I = 0 THEN 6090 
6070 FOR J = 1 TO L- IF MID$ (I$(11U,1) < > " * THEN 6180 
6080 NEXTJ 

6090 PRINT "Last name of persmi not entered, is this what you want (Y/N)? ":; GET AS 

6100 IF A$ = "Y" OR A$ = V THEN 6120 ^ ' . ^9 

6110 IE = 11:HE ^ 2: GOTO 840 

6120 VTAB 17: HUNT : CALL - 868 

6130 I = LEN (I$(12)): IF I « 0 THEN 6160 

6140 FOR J = 1 TO I: IF MID$ a$(12U4) < > "." THEN 6200 

6160 NEXTJ 

6160 HUNT "First name(s) <rf perwm not entered, is this what you want (Y/N)7 ":: GET AS 

6170 IF A$ = "Y" OR A$ = "y" THEN 6190 ^ 

6180 IE - 12:H£ ^ 2.. qotO 840 

6190 VTAB 17: PRINT : CALL - 868 

6300 IFI$(13) = "ORlSdS) = " " TH©f I$(13) = "W" 

6210 I « ASC (I$(13)): IF I > M AND I < 123 THEN I s i . 32 

6220 IF I< 91 AND I > 64 THEN 6260 

6230 PRINT "Invalid race code, re-enter" U 
6240 IE = ld:HE = 2: GOTO 840 
6260 mW s CHRI (D: IF I$(14) e THEN 5280 
6260 Is ASC(If(14)):IFI>MANDI< 123 THEN I = I • 32 
6270 IF I s 70 OR I « 77 THEN 6290 
6280 PRINT "Enter m ofMrm":IE = 14:HE s 2: GOTO 840 
6290 m u) g CHRI (D: IP LH»I 01(16)) = 0 THEN 5320 
6800 IF LEFTS (IS(16),1) « >" OR LEFTS (IS(16),1) » "M" THEN 6330 . 
6810 IF VAL (mm > 0 AND VAL (IS(16)) < 111 THEN 6390 
' 6320 PRINT "Entar a vaUd age":IE = 16:HE s 2: GOTO 840 
6330 IF LEN OSdS)) » 1 THEN 6320 
6840 I » VAL ( RIGHTS 01(16), LEN 0S(16)) - 1)) 
6360 IF I > 11 OR I< 0 THEN 6320 
6360 IF I< 10 THEN 6380 / 
6370 miB) B "M« -H 8TRS 0): GOTO 6406 



37 39 



6380 I$(15) = ''MO" + STII$ 0): GOTO 6400 
6390 I$(l&) = STR$ ( VAL (I$(2&))) 
6400 IF LEN a$(ie)) = 0 THEN 6450 

6410 T$ = FOR I = 1 TO LEN (I$(16)):J « ASC ( MID$ a$(16)J,l)) 
6420 IFJ > 96 AND J < 123 THEN J = J - 32 

6430 T$ = T$ + CHR$ (J): NEXT I < 
6440 I$(16) = T$ 

6460 IF I$(17) ^ "* THEN I$(17) « " " 

6460 I « ASCa$(lT)):IFI > 96 AND I< 123 THEN I = 1-32 
6470 IF I s 68 OR I = 77 OR I =s 83 OR I = 87 OR I s 32 THEN 6490 
'64^ PRINT invalid axle for marital status, re-enter^iIE s 17:HE = 2: GOTO 840 
6490 I$(17) = CHR$ (1): IF I$(18) = -* OR I$(18) = * " THEN I$(18) = "N" 
6600 I s ASC CmiB)): IF I > 96 AND I < 123 THEN I s I • 32 
6610 IF I = 78 OR I = 89 THEN 6630 

6620 PRINT **Invatid value, re-enter":IE = 18:H£ ~ 2: GOTO 840 
5630 I$(18) = CHR$ a): IF VAL a$(20)) < 13 AND VAL a$(20)) > = 0 THEN 6560 
6640 PRINT "Months unemployed must be between 0 and 12 indusive^iIE = 20:HE = 2: GOTO 
840 

6660 I$(20) = STR$ ( VAL (I$(20))) 

^flbO FORI = 22 TO 29: IF I$(D = " " OR I$(D = THEN I$(D = "N" 
6670 J e ASC (I$(D): IF J > 96 AND J < 128 THEN J = J - 32 
6680 IF J = 78 OR J = 89 THEN 6600 

6690 PRINT "Invalid value, re^ter":IE = I:HE = 2: GOTO 840 
6600 I$(D = CHR$ (J): NEXT I 

6610 I 30 . 
6620 IF LEN a$(D) = 0 THEN 6700 
6630 T$ = FOR J = 1 TO hEN a$(D) 
6640 Kl s ASC ( MID$ (I$(D4.1)): IF Kl = 32 THEN 5670 
6660 IF Kl > 96 AND Kl < 12dTHEN Kl = Kl • 32 
6660 T$ s T9 + CHR$ (Kl) 
5670 NEXT J 

6680 IF LEN (T$) = 0 THEN 5700 
6690 I$(D = T$: GOTO 5710 

6700 i$(D = * wr ^ 

6710 IF LEN (I$(D) > 1 THEN 5730 

5720 PRINT "Invalid birthplace code. re-enter":IE = I:H£ = 2: GOTO 840 

6730 IF LEN (I$(DT = 2 THEN I$a) = " " + I$(D 

6740 1 = 1-1- 1:IFI< 33 THEN 5620 

5750 IF K - 2 THEN 1360 

5760 IF K - 6 THEN 1400 

6770 GOTO 1610 

5780 VTAB 17: PRINT : CALL - 968: RETURN 

5790 REM SET UP VARIABLES FOR NEXT ENTRY, INCLUDING CR 

5800 VTAB 3: POKE 36,75: PRINT CR; 

6810 Is VAL(I$(6)) + 1:IFI< 51THEN5860 

5820 I = IkJ = VAL (l$(5)):Jl = ASC ( RIGHTS a$(6),l)): IF INT (Jl / 2) • 2 = Jl THEN J 
J + 1 

5830 Jl s Jl 1: IF Jl > 68 THEN Jl = 65 

6840 I$(5) = STR$ (J) + CHR$ (Jl): VTAB 7: HTAB 7: PRINT I$(5); LEFT$ (SP$,5 - LEN 
■ a$(6))); r 
6860 VTAB 3: POKE 36,75: PRINT CR; 
6860 IK6) B STR$ (D 

6870 VTAB 7: HTAB 20: HUNT I$(6); LEFT9 (SP$,4 - LEN (I$(6))); 
6880 11(12) = "^: VTAB 10: HTAB 16: PRINT LEFT$ (SP$,20); 

6890 FOR I = 14 TO 33010) = "": VTAB Y(D: POKE 36,X(D - 1: PRINT LEFT$ (SP$,La));: 

NEXTI 
69(^ RETURN 
6910 El = EiLl = L 
5920 E s PEEK (222) 
6930 L s PEEK (218) -I- PEEK (219) * 256 
6940 VTAB 17: PRINT : PRINT CHR$ (4): VTAB 17: PRINT 
69^ IF E"^ 4 THEN 6040 ' 

4 88 • ^ ' • 



6960 IF E = 5 THEN 460 

5970 IF E = 6 THEN 420 

5980 IF E = 8 THEN 6070 

5990 IF E 9 THEN 6260 

6000 IF E = 255 THEN RESUME 

6010 PRINT CHR$ (4);"CL0SE" 

6020 PRINT "ERROR #";E;" IN LINE ";L 

6030 GOTO 625() 

6040 PRINT "DISK WRITE PROTECTED": PRINT "PLEASE REMOVE WRITE PROTECT TAB" 

6060 PRINT "TYPE ANY KEY WHEN READY ";: GET A$ 

6060 GOTO 220 

6iJ70 IF L > 760 THEN 6100 

6080 VTAB 23: HTAB 30: PRINT " INITIALIZING DISK "; 

6090 PRINT : PfelNT CHJC$ (4);"INrr DUMMY, D2": PRINT CHR$ (4);-DELETE DUMMY": 

GOTO 420: REM L = THIS LINE FOR I/O ERROR 
6100 PRINT "I/O ERROR, PUT DISK IN DRIVE 2, AND CLOSE DOOR" 

6110 PRINT "TYPE *C' TO CANCEL FUNCTION, ANY OTHER KEY WHEN READY ";: GET A$ 

6120 IF A$ < > "C" AND A$ < > "c" THEN 6170 

6130 IF L < 1890 THEN 250 

§140 IF L < 4760 THEN 760 

dl60 IF L = 6090 THEN 260 

6160 GOTO 6260 

6170 VTAB 17: CALL - 958 

6180^ L < 1820 THEN 420 

6190 IF L < 1890 THEN 1880 

6200 IF L < 4520 THEN 3980 

£210 IF L < 4750 THEN 4640 

6220 IF L < > 6090 THEN 6250 

6230 IF LI = 6090 THEN 6080 

6240 GOTO- 250 

6260 PRINT : PRINT "ERROR ";E;" IN LINE ";L 

6255 PRINT "UNABLE TO CONTINUE, PROGRAM ABORTED": PRINT : GOTO 6350 

6260 CALL - 958: PRINT "DISK FULL": IF IE = 0 THEN 6320 

6270 PRINT CHR$ (4>;"WRITE ";I$(0):", RO" 

6280 R$ = STR$ (TR): IF TR < 100 THEN R$ = "0" + R$ 

6290 IF TR < 10 THEN R$ = "0" + R$ 

6300 R$ |l$ + I$(35) + SP$ + LEFT$ (SP$,22) . u 

6310 PRINT R$; PRINT CHR$ {4);"CL0SE" " 

6320 PRINT "PUT A NEW DISK IN DRIVE 2, TYPE ANY KEY WHEN READY ":; GET A$ 
6330 TR = 0:E2 = 1: GOTO 220 
6340 HOME 
6360 END 
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